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

Question

Информатика

Володюня

12 сентября, 09:46

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

+5

Ответы (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.