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

Question

75

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

категория: информатика

ответить

в избранное ссылка

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

stasxzx · Accepted Answer

37

stasxzx

13 февраля 2024

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: