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

Question

Информатика

Леша

5 августа, 23:25

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

+3

Ответы (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.