Найти среднее арифметическое чисел которое делятся на 3 без остатка от 100 до 1

1

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

2013-12-28T02:24:52+04:00
Program gt;
var i,s,k:integer;
begin
s:=0;
k:=0;
for i:=1 to 100 do
begin
if(i mod 3=0)then begin
k:=k+1;
s:=s+i;
end;
end;
writeln(s/k);
end.