Написать программу, которая в диапазоне от 1 до 100000 считает количество чисел, которые делятся на 8 без остатка. (паскаль)
MarySolov
3
13.02.2022 21:07
1
Другие вопросы по теме Информатика
Anastik222
29.09.2019 09:02
Sl1dan
29.09.2019 09:02
varich83
29.09.2019 09:02
vikyyyyysya142
14.10.2019 11:33
byrzakovskaya
14.10.2019 11:36
Tixaia
14.10.2019 11:41
nik667755mm
14.10.2019 11:42
Vikadianalol
18.05.2020 07:17
олегБро666
19.08.2019 02:10
00Лисичка00
19.08.2019 02:10
Популярные вопросы
- Решите завтра решение,формулы,и т д распишите,учитель какую массу...
1 - Составьте предложения с языковыми конструкциями, типичными для...
2 - Перечислите не менее 2-х увеличения силы тяготения в 16 раз....
2 - Допиши предложения, используя don t или doesn t. 1) my eat fish....
1 - Скласти речення із словами на сміх, насміх...
3 - Сколько килобайт памяти необходимо для хранения черно-белого рисунка...
3 - Сочинение на тему: кто такой лопахин: буржуазный делец или человек...
1 - Решить.. 5 5/12 - 2 5/9; 8 1/4- 7 5/18; 4 7/12 - 1 5/8; 3 7/18...
1 - Вычислите среднесуточную температуру воздуха: 21ч -2.8. 00ч -4.2...
3 - За какое время на электроплитке можно нагреть до кипения 1 кг воды,взятой...
3
Я уже дал ответ. Ты видимо не дождался и отчаялся :)
var
i: integer;
d: integer;
begin
d:=0;
for i:=1 to 100000 do begin
if (i mod 8) = 0 then
begin
d := d + 1;
end;
end;
writeln(d)
end.