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