написать программу которая определяет сколько чисел кратных 15 находится в диапозоне от 150 до 550

1

Ответы и объяснения

Лучший Ответ!
2013-11-22T16:26:24+00:00

var i:integer;
n:=0;
begin
for i:=150 to 550 do 
begin
if i mod 15 = 0 then n:=n+1;
end;
write(n);
end.