Question

Составьте алгоритм (блок схему) решения следующей задачи дано натуральное число
n(n=9999). Определить является ли оно палиндромом (перевертышем) с учетом 4 цифр.
например, палиндромами является число 2222, 6116, 0440​

Answer 1

(Обозначим: n - вводимое число; m - дубликат числа n; а - перевертыш числа n; i - переменная цикла для создания перевертыша.)

program prim3;

uses crt;

var n, m, a, i: integer;

begin

clrscr;

(Введем четырехзначное целое число.)

writeln('N<=9999'); readln(n)

(Запоминаем введенное целое число и задаем начальное значение перевертыша.)

m:=n;а:=0;

(Организуем цикл с параметром от 1 до 4.)

for i:=l to 4 do

(Находим перевертыш числа N)

begin

а:=а*10+ m mod 10; m:= m div 10;

end;

(Если A=N, то данное число является перевертышем.)

if a=n then writeln('DA!')

else writeln('NO');

readln;

end.