Question

Напишите программу на языке Pascal, которая подсчитывает количество чисел кратных 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.