Паскаль. Найти среднее арифметическое трех целояисленных переменных.
Паскаль. Найти среднее арифметическое трех целояисленных переменных.
Гость
Ответ(ы) на вопрос:
Гостьvar
S,i,a:integer;
begin
for i:=1 to 3 do
begin
readln(a);
s:=s+a;
end;
writeln('Srednee = ',s/3);
end.
Не нашли ответ?
Похожие вопросы