введите с клавиатуры 5 произвольных чисел и найдите корень квадратный из суммы их кубов ...

Question

Reda

Информатика

11 сентября, 21:43

введите с клавиатуры 5 произвольных чисел и найдите корень квадратный из суммы их кубов ...

+4

Ответы (1)

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

Виктория Федотова · Answer 1

Program P1;

var a, d, c, d, e, x:integer;

begin

writeln ('Введите 5 чисел');

readln (a, b, c, d, e);

x:=sqrt (a*a*a+b*b*b+d*d*d+c*c*c+e*e*e);

writeln ('Корень квадратный из суммы кубов чисел равен:', x:0:0);

readln;

end.