Задача 1. : Из чисел от 10 до 99, вывести те числа, у которых сумма цифр четная.
Program prim1;
Var i, p1, p2, s: integer;
Begin
{организовываем цикл с параметром от 10 до 99}
for i:= 10 to 99 do begin
p1:= i div 10; { выделяем первую цифру}
p2:= i mod 10; {выделяем последнюю цифру}
s:= p1+p2; {находим сумму цифр числа i}
{проверяем равна сумму цифр числа i числу n }
if s mod 2=0 then writeln (‘i=’, i);
end;
readln;
end.
Нужно проверить правильность решении задачи Ну дружу с информатикой. Объясните как это вообще понимать

nastyshabos    1   27.01.2021 17:49    2