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.
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.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Проверка числа-палиндрома