Я уже дал ответ. Ты видимо не дождался и отчаялся :)
var
i: integer;
d: integer;
begin
d:=0;
for i:=1 to 100000 do begin
if (i mod 8) = 0 then
d := d + 1;
end;
writeln(d)
end.
Я уже дал ответ. Ты видимо не дождался и отчаялся :)
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.