Найти кол-во чисел, которые делятся на 12, в первой 1000 натуральных чисел.
( ABC Pascal)-Программа через которую делаю задания
8 класс
Ответы
Ответ дал:
0
// Деление на 12 нацело
Program na12;
var i,n: integer;
begin
n:=0;
for i:= 1 to 1000 do
if (i mod 12 = 0) then
begin
n:=n+1;
end;
writeln (n);
end.
Похожие вопросы
2 года назад
2 года назад
8 лет назад