Составить программу нахождения всех двухзначных чисел, которые заканчиваются на 5 или 0. Подсчитать их количество

Question

Фортуната

23 сентября, 22:03

+4

Ответы (1)

Знаете ответ?

Кузя · Answer 1

Var

i, k:Integer;

Begin

for i:=10 to 99 do

if (i mod 10 = 5) or (i mod 10 = 0) then k:=k+1;

Writeln (k) ;

end.