Ответы и объяснения

2013-10-24T08:11:11+00:00
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.

я ошибку нашёл - 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 назад уже
я всех по Си++ учу давно
изменял, не идёт