Найти сумму кубов 3 чисел PascalABC

Question

Информатика

Любомир

7 июля, 21:51

Найти сумму кубов 3 чисел PascalABC

+4

Ответы (1)

Знаете ответ на вопрос?

Айнизиба · Answer 1

Uses crt;

var

a, i:integer;

sum:double;

begin

i: = 0;

sum:=0;

while (i < 3) do begin

readln (a) ;

sum:=sum+Power (a, 3) ;

i: = i + 1;

end;

writeln ('Сумма = ', sum) ;

end.