Написать программу, которая в диапазоне от 1 до 100000 - вопрос №110000021259395 от РумакСтепан 05.08.2021 15:08

Question

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

РумакСтепан · 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.