Написать программу, которая в диапазоне от 1 до - вопрос №110000021259220 от sasha1916 26.06.2022 12:47

Question

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

sasha1916 · 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.