Question

написать программу считающую количество чисел оканчивающихся на 5 и 7 в ряду от 1 до 300

Answer 1

1. var
2.    i, k: integer;
3. begin
4.    for i := 1 to 300 do
5.        if (i mod 10 = 5) or (i mod 10 = 7) then
6.                k := k + 1;
7.    
8.    Writeln('Количество цифр, оканчивающихся на 5 или 7: ', k);
9. end.

Ответ

60