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

Question

Информатика

Минюша

10 января, 13:37

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

+2

Ответы (1)

Знаете ответ на вопрос?

Виктория · 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.