Найти сумму первых семи чисел кратных 3 в pascal abc

Question

Найти сумму первых семи чисел кратных 3 в pascal abc

Answer 1

Program summa;
uses crt;
var a,b,c,d:integer;
begin
a:=7;
b:=3*a;
c:=0;
for d:=1 to b do
begin
if d mod 3 = 0 then  c:=c+d;
end;
writeln('Ответ = ',d);
end.

Comments

Неправильно!

---

что выдает?

---

21

---

я ошибку нашёл - a:=7; b:=3*a;

---

попробуй так:
измени код
for d:=1 to b do
begin
if d mod 3 = 0 then c:=c+d;
end;
на этот
for d:=1 to b do
s:=s+3*i;

---

for d:=1 to b do
с:=с+3*d;

---

сейчас скачаю freepascal,перепроверю,если еще актуально,а то пишу по памяти
хотя,вашим преподам я бы головы отрывал,язык умер лет 20 назад уже
я всех по Си++ учу давно

---

изменял, не идёт