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 самому числу P