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

2013-02-24T18:11:26+00:00

var a:longint;
i:integer;
begin
a:=0;
for i:=75 to 178 do if i mod 3=0 then inc(a,i);
writeln(a);
end.