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

Question

Петринка

11 апреля, 07:15

+4

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