Question

3. Какую задачу решает приведенный фрагмент программы. Все переменные имеют целый тип, N>0

program t1;


var

k, n, p: integer;


begin

K := 0; N := P;


while N <> 0 do


begin


K := K * 10 + N mod 10;


N := N div 10;

end;




if P = K then Writeln('да') else Writeln('нет');

end.

Answer 1

Данный фрагмент программы определяет является ли число P палиндромом

Объяснение:

while N <> 0 do

begin

K := K * 10 + N mod 10;

N := N div 10;  

end;

Этот цикл записывает в переменную K перевёрнутый вариант числа P

if P = K then Writeln('да') else Writeln('нет');

Это условие истинно, если исходный вариант числа равен перевёрнутому