Написать программу, которая в диапазоне от 1 до - вопрос №212589951100000 от Змей19 30.04.2021 04:56

Question

Информатика: Написать программу, которая в диапазоне от 1 до 100000 считает количество чисел, которые делятся на 8 без остатка. (паскаль)

Змей19 · Answer

Я уже дал ответ. Ты видимо не дождался и отчаялся :)

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;

writeln(d)

end.