Question

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

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.

Answer 2

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c):=ReadReal3('Введите через пробел три числа:');
  Writeln('Сумма их кубов равна ',a**3+b**3+c**3)
end.

Пример
Введите через пробел три числа: 23.7 -12.6 39
Сумма их кубов равна 70630.677