Вычислите количество чисел в промежутке от А до В (которые вводятся с клавиатуры), которые кратны 7 или оканчиваются на 9. в Паскале

Question

Пульхерия

19 июля, 11:37

+5

Ответы (1)

Знаете ответ на вопрос?

Дануся · Answer 1

Program n1;

var a, b, k, i: integer;

begin

readln (a, b) ;

k:=0;

for i:=a to b do if (i mod 7=0) or (i mod 10=9) then k:=k+1;

write (k) ;

end.