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.
Ответы
Ответ дал:
0
Проверяет равна ли сумма цифр числа P самому числу P
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
2 года назад
7 лет назад
7 лет назад