Question

Напишите эффективную программу, которая по двум данным натуральным числам x и y,не превосходящим 10000, выводит на экран и подсчитывает количество натуральных чисел, кратных восьми, на отрезке [ x,y] ( включая концы отрезка)

Answer 1

program zadacha;
uses crt;
var x, y, i, count: integer;
begin
clrscr;
write ('enter x and y: ');
readln (x, y);
if x<y then begin
for i:=x to y do begin
if i mod 8 = 0 then begin
writeln (i);
count:=count + 1;
end;
end;
end
else for i:=y to x do begin
if i mod 8 = 0 then begin
writeln (i);
count:= count + 1;
end;
end;
end;
writeln ('vsego chisel ', count);
readkey;
end.