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

Question

Информатика

Натан

15 марта, 01:51

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

+1

Ответы (2)

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

Спиридоний · Answer 1

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.

Исидора · Answer 2

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.