Question

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

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.