1. Информатика
  2. Составьте программу определения

Составьте программу определения , является ли данное четырехзначное число натуральным числом которое читается одинаково слава на право и справо на лево. например 2222 , 6116

Msrisel Msrisel    1   09.07.2019 14:40    1

Ответы
mynameisNastia mynameisNastia  15.09.2020 11:58
Вводим число
Флагу присваиваем true
Циклом проходим от начала до середины числа
Если цифра на позиции i не равна цифре на позиции длина - i + 1
Тогда число не является палиндромом (нельзя прочитать задом наперед)
Присваиваем флагу значение false
Прерываем выполнение цикла
Проверяем, если у флага значение true, значит число является палиндромом (можно прочитать задом наперед).
 
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
wertyfaq wertyfaq  04.06.2019 22:20
Вычислите сумму всех двузначных чисел, используя циклический оператор...
daria383ver daria383ver  04.06.2019 22:20
Используя цикл “for”, “while”, repeat” найти сумму чисел от 10 до 50 кратных 3 или 5....
никита20029 никита20029  04.06.2019 22:20
2) элементы двухмерного массива a размером 4´4 первоначально были равны 0. затем они изменяются с следующего фрагмента программы: forn: =1to4dofork: =nto4doa[n,k]: =1; сколько...
prozorovamary23 prozorovamary23  08.06.2019 21:40
1. лазерный диск содержит 650 мбайт информации. ск потребуется дискет объемом 1,39 мбайт, чтобы разместит информацию с диска. 2. рассчитать объем аудио-файла длительностью 10 секунд...
sasuke97 sasuke97  08.06.2019 21:40
Производится двух канальная стерео звукозапись с чистотой дискретизации 48 кгц в 24-битном разрешении. результат записывается в файл. размер полученного файла 3 мбайт. сжатие данных...
Зейна12 Зейна12  08.06.2019 21:40
На световой панели в ряд расположены 6 лампочек. каждая лампочка может гореть красным цветом, желтым цветом или зеленым цветом. сколько различных сигналов можно передать с панели...
kaleeva1607 kaleeva1607  06.10.2019 18:01
Подсчитайте объём данных, передаваемых в секунду от видеопамяти к монитору в режиме 1024x768 пикселей с глубиной цвета 16 битов и частотой обновления экрана 75гц...
MissKaprizz99 MissKaprizz99  28.07.2019 17:20
Напишите программу для решения квадратного уравнения вида ax^2+bx+c, где a не равно 0. примечание: если ваше условие выполняется и необходимо выполнение более одного действия,...
nikakoheleva14 nikakoheleva14  31.07.2019 23:20
Ошибка в строке 6 не могу понять какая, . var mas: array [0..5] of integer; i: integer; begin for i: =0 to 7 do mas[i] : = i; for i: =0 to 7 do writeln (mas[i]); end....
kotletka223 kotletka223  24.05.2019 07:00
Match. some words can be used more than once. write senteces with six word combinations. 1. optimistic a) technology 2. age b) diseases 3. electronic c) discoveries 4. endangered...

Популярные вопросы