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

Question

Marfusha

Информатика

15 июля, 05:20

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

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Владислав Сидоров · Answer 1

program n_1;

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.