Question

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

Answer 1

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

Answer 2

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 3

Для нахождения суммы кубов трех чисел в PascalABC, вам потребуется написать программу, которая считает куб каждого числа и затем найдет их сумму. Вот пример кода на PascalABC:

pascalCopy code
program SumOfCubes;

var
  num1, num2, num3, sum: integer;

begin
  // Ввод трех чисел
  Write('Введите первое число: ');
  ReadLn(num1);
  
  Write('Введите второе число: ');
  ReadLn(num2);
  
  Write('Введите третье число: ');
  ReadLn(num3);
  
  // Вычисление кубов и их суммы
  sum := num1 * num1 * num1 + num2 * num2 * num2 + num3 * num3 * num3;
  
  // Вывод результата
  WriteLn('Сумма кубов трех чисел: ', sum);
end.

Скопируйте этот код в редактор PascalABC, выполните его и введите три числа. Программа вычислит и выведет сумму кубов этих чисел.