Пожаловаться
- 12.12.2016 08:49
- Информатика
- remove_red_eye 13417
- thumb_up 44
Ответы и объяснения 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.
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.
Пожаловаться
- 13.12.2016 15:22
- thumb_up 21
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
Пожаловаться
- 14.12.2016 04:28
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы