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

Question

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

Comments

до каких пор считать?

---

не указано

---

хм, ну тогда я сделаю ограничение счёта по вашему усмотрению, то есть введя его с клавиатуры

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.

Comments

а здесь учтено то,что числа должны быть кратны 7? я в этом совсем не разбираюсь,к сожалению(

---

вот сейчас учтенно, прошу прошения я в первый раз забыл добавить эту строку if c mod 7 = 0 then она и отвечает за проверку кратности числа 7