Написать программу, которая в диапазоне от 1 - вопрос №110000021259563 от zhazi9494e 20.11.2020 01:00

Question

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

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