Предмет: Информатика, автор: alinarashitova

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

Ответы

Автор ответа: Alphaeus
0
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.

Похожие вопросы
Предмет: Алгебра, автор: lela123456789