Pazhonyun
5 год назад
В заданном интервале целых натуральных чисел от N до M, подсчитайте количество чисел кратных K. в паскаль Пожалуйста посчитайте
ОТВЕТЫ
Бонка
Oct 24, 2020
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.
begin
readln(n,m,k);
for i:=n to m do
if i mod k = 0 then c:=c+1;
write(c);
end.
414
Смежные вопросы:
