Question

подсчитать количество чисел кратных 8 в промежутке от n до 100​

Answer 1

Ответ:

var

n,i,k:integer;

begin

Write('n=');

Readln(n);

k:=0;

for i:=n to 100 do

if i mod 8 = 0 then Inc(k);

Writeln('k=',k);

end.

Надеюсь помогло)