Ответы и объяснения

2013-10-31T05:36:40+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
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.