Ответы 2

  • uses crt;vara,i:integer;sum:double;begini:= 0;sum:=0;while (i < 3) do beginreadln(a);sum:=sum+Power(a,3);i:= i + 1;end;writeln('Сумма = ', sum);end.
    answer img
    • Автор:

      rubyzgoq
    • 6 лет назад
    • 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
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years