Найти кол-во чисел, которые делятся на 12, в первой 1000 натуральных чисел.( abc pascal)-программа через которую делаю 8 класс
Nastya1138373
2
24.03.2019 17:09
0
Другие вопросы по теме Информатика
Богдан2281667
22.08.2019 12:20
Ru5829
29.04.2021 07:54
suslik030715
29.04.2021 07:57
Кряквочка
29.04.2021 07:58
вика3876
29.04.2021 08:13
ЕнотОбормот
29.04.2021 08:17
fasgame
29.04.2021 08:23
Sashenka585888
29.04.2021 08:25
Популярные вопросы
- 1. в каком ряду в обоих словах пропущена одна и та же буква? ответ запишите...
3 - Удвохповерховому будинку проживає b чоловік ,що становить 80% кількості...
1 - Укажите количество грамматических основ в предложении. ответ напишите цифрой...
3 - Решить систему уравнений линейной функцией 1) у=х-1 у+х=3 2) у= -х у=х+4...
1 - 1/в каком ряду в обоих словах пропущена одна и та же буква? ответ запишите...
2 - Сколько существует трёхзначных чисел оканчивающиеся цифрой 5...
3 - Среди жителей района 20% дети, а среди взрослого населения 65% работают....
2 - Фосфорная кислота взоимодействует с солью?...
1 - Найдите эквиваленты терминам : inch, foot, yard,mile, ounce, pound, stone...
1 - Іть будь- знайдіть кути трикутника adf, якщо кут a в 3 рази більший за...
2
// Деление на 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.