Question

помогите составить программу по информатике.

Написать программу которая определяет количество всех двух и трехзначных чисел от 10 до 1000, которые оканчиваются на 9. ​

Answer 1

var k,i: integer;

begin

k:=0;

for i:=10 to 999 do if i mod 10=9 then k:=k+1;

write(k);

end.