profile
Опубликовано 5 лет назад по предмету Информатика от AdmIrao

Паскаль, помогите ПЖ, последнее задание срочно!!!

  1. Ответ
    Ответ дан Аккаунт удален
    Var m,n,sum: integer;
    Begin
    sum:=0;
    Write(‘Введите конечное число повторений: ‘);
    Readln(m);
    For n:=1 to m do
    Begin
    sum:=sum+(n*n*n-3);
    End;
    Write(‘Ответ: ‘’,sum);
    End.
Самые новые вопросы