Предмет: Информатика,
автор: vishevsckijdenis
Найти кол-во чисел, которые делятся на 12, в первой 1000 натуральных чисел.
( ABC Pascal)-Программа через которую делаю задания
8 класс
Ответы
Автор ответа:
3
// Деление на 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.
Интересные вопросы
Предмет: Химия,
автор: dekaberskiy
Предмет: Русский язык,
автор: muam11rus
Предмет: Химия,
автор: olegggskrip
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: vinokurova1985