Ответы
Ответ дал:
0
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.
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.
Приложения:
![](https://st.uroker.com/files/702/70261be406fd41d7222a878a6f29d1dd.jpg)
Ответ дал:
0
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
Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3('Введите через пробел три числа:');
Writeln('Сумма их кубов равна ',a**3+b**3+c**3)
end.
Пример
Введите через пробел три числа: 23.7 -12.6 39
Сумма их кубов равна 70630.677
Приложения:
![](https://st.uroker.com/files/702/70261be406fd41d7222a878a6f29d1dd.jpg)
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад