Задать вопрос
10 мая, 23:28

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

+1
Ответы (1)
  1. 10 мая, 23:51
    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.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Найти сумму кубов 3 чисел PascalABC ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы