составить программуF=1+2+..+N

Составить программу
F=1+2+..+N

Задать свой вопрос
2 ответа
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('F=',1.To(ReadInteger).Sum)
end.

Пример
318
F=50721
//Pascal
var N, i, F: integer;
begin
F := 0;
write('Введите N: '); readln(N);
for i := 1 to N do
  F := F + i;
write('F = ', F);
end. 
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

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

Войти на сайт