Найти сумму N чисел натурального ряда кратных 7, начиная с k>0, N> 0, N и K вводятся с клавиатуры.

Question

Информатика

Наста

26 июня, 12:53

Найти сумму N чисел натурального ряда кратных 7, начиная с k>0, N> 0, N и K вводятся с клавиатуры.

+2

Ответы (1)

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

Раиса · Answer 1

Var a, b, c, d:integer;

beginwriteln ('введите число с которого начинать считать') ;

readln (a) ;

writeln ('введите число на которым окончить счёт') ;

readln (b) ;

d:=0;

for c:=a to b do

begin

if c mod 7 = 0 then

d:=d+c;

end;

writeln (d) ;

end.