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.

Answer 2

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

Answer 3

попробуй так:
измени код
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;

Answer 4

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

Answer 5

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