Помогите решить задачу по иформатики на языке pascal .
найдите среднее арифметическое натуральных трёхзначных чисел на отрезке от 200 до 600, кратных 3

2

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

2014-02-20T22:39:14+04:00
Program gt;
var i,k:integer;
s:real;
begin
k:=0;
for i:=200 to 600 do
if(i mod 3=0)then begin
k:=k+1;
s:=s+i;
end;
s:=s/k;
writeln(s);
end.

спасибо) я полный 0 в задачах
Зря, их интересно решать!
:)
2014-02-20T22:40:04+04:00
Var s,a,b:integer;
x:real;
begin
b:=0;
a:=0;
for s:=200 to 600 do
if s mod 3=0 then
begin
b:=b+1;
a:=a+s;
x:=a/b;
end;
write(x);
end.