Question

Подсчитать сумму чисел кратных 7 в промежутке от 200 до300.

Answer 1

Program Alina;
uses crt;
const
   a=200;
   b=300;
var i, n, k: integer;
begin
  k:=0;
  for i:=a to b do
      if i mod 7 = 0 then k:=k+1;
  writeln('Всего ',k,' чисел, кратных 7');
end.