Найти сумму всех положительных чисел, не превышающих данного натурального числа N. программа на паскале.

Question

Информатика

Зенон

22 марта, 02:18

Найти сумму всех положительных чисел, не превышающих данного натурального числа N. программа на паскале.

+2

Ответы (1)

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

Февронья · Answer 1

Program Summa;

Uses Crt;

var n, s, i:longint;

begin

clrscr;

write ('Введите N: ') ;

readln (n) ;

s:=0;

for i:=1 to n do s:=s+i;

writeln ('Сумма всех положительных чисел меньших чем N:', s) ;

readkey;

end.