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

Question

Информатика

Альберта

12 июля, 07:43

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

+4

Ответы (2)

Знаете ответ на вопрос?

Доняха · Answer 1

Var

n:integer;

S:real;

Begin

S:=0;

Write ('n = ') ;

ReadLn (n) ;

For n: = 1 to n do

S:=S+n;

Write ('S = ', S)

End.

Коляня · Answer 2

Program sum_n;

var

n, i, s: integer;

begin

write ('n = ') ;

readln (n) ;

s : = 0;

for i : = 1 to n do

s : = s + i;

writeln ('s = ', s) ;

end.