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

2

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

2013-03-26T19:21:42+04:00

var
a,i,sum:integer;
begin
for i:=1 to 5 do
begin
readln (a);
sum:=sum+(i*i*i);
end;
writeln (sqrt(sum));
end.

2013-03-26T20:39:11+04:00

program zadacha;

uses crt;

var a,b,c: integer;

begin

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

readln(a,b,c);

writeln(sqrt(a*a*a+b*b*b+c*c*c));

readln;

end.