Даны три целых числа a, b, c. Найдите среднее арифметическое их квадратов

1

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

2014-04-11T15:15:21+04:00
Var a,b,c :integer;
begin
writeln('введите число A') ;
readln(A);
writeln('введите число B') ;
readln(B);
writeln('введите число C') ;
readln(C);
S:=(sqr(a)+sqr(b)+sqr(c))/3;
writeln(S);
end.