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.
ПРоверка числа-палиндрома