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

Question

Информатика

Гадельбану

20 декабря, 00:00

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

+3

Ответы (2)

Знаете ответ?

Гарнетт · Answer 1

Var

s, n:integer;

begin

Write ('Введите n:') ;

Readln (n) ;

s:=n + (n * (n-1)) div 2; { сумма арифметической прогрессии }

Writeln ('Сумма чисел от 1 до ', n,' равна ', s)

end.

Весиля · Answer 2

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.