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

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

Задать свой вопрос
Руслан
Еще темнее сделать просто не вышло?
Владислав Мушковец
там всё понятно, если не можите не делайте
Данька Ширинев
Да, пожалуй я не смогу))))))))
Годлевский Сергей
Еще темнее сделать просто не вышло?
Андрей Новокрещин
там всё понятно, если не можите не делайте
Рома
Да, пожалуй я не смогу))))))))
Володя Эразмов
Еще темнее сделать просто не вышло?
Serega Pjatakovskij
там всё понятно, если не можите не делайте
Толян
Да, пожалуй я не смогу))))))))
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.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт