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

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

60