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

Question

Васюра

17 апреля, 20:30

+2

Ответы (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.