Пример решения на языке PascalABCNET
var i: integer;
s: real;
begin
S:=0;
for i:=5 to 35 do
begin
if i mod 3=0 then s:=S+i;
end;
write('сумма=',s);
end.
Результат: сумма=195
Добрый день. Меня заинтересовал ваш ответ "Пример решения на языке PascalABCNET
var i: integer;
s: real;
begin
S:=0;
for i:=5 to 3..." на вопрос http://www.liveexpert.org/topic/view/2124193-reshit-zadachu-na-cikli-najti-summu-chisel-kratnih-3-iz-otrezka-ot-5-do-35. Можно с вами обсудить этот ответ?