Циклы (for and while) в Pascal ABC.
Помогите решить задачу, пожалуйста.
Составьте программу, которая выводит на экран все двузначные числа, сумма цифр которых четная.
Помогите решить задачу, пожалуйста.
Составьте программу, которая выводит на экран все двузначные числа, сумма цифр которых четная.
More Questions From This User See All
Answers & Comments
var
n, v, p: integer;
begin
for n := 10 to 99 do
begin
v := n mod 10;
p := n div 10;
if (v+p) mod 2 = 0 then
writeln(n)
end;
end.