В заданном интервале целых натуральных чисел от N до M, подсчитайте количество чисел кратных K. в паскаль Помогите

Question

Пармен

1 февраля, 23:00

+3

Ответы (1)

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

Галиша · Answer 1

Var m, n, i, k, c:integer;

begin

readln (n, m, k) ;

for i:=n to m do

if i mod k = 0 then c:=c+1;

write (c) ;

end.