Написать программку вычисления суммы целых чисел от 1 до n, запрашиваемого

Написать программку вычисления суммы целых чисел от 1 до n, запрашиваемого с клавиатуры. Pascal ABC

Задать свой вопрос
2 ответа
Var
  s,n:integer;
begin
  Write('Введите n:');
  Readln(n);
  s:=n+(n*(n-1)) div 2; сумма арифметической прогрессии
  Writeln('Сумма чисел от 1 до ',n,' одинакова ',s)
end.
Var
  i, n: integer;
  sum: longint;
begin
write('n = ');
readln(n);
for i := 1 to n do sum := sum + i;
writeln('Сумма чисел от 1 до ', n , ' = ', sum);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

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

Войти на сайт