3. Какую задачу решает приведенный фрагмент программы. Все переменные имеют целый тип, N>0program 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.
Проверка числа-палиндрома