Найти сумму всех положительных чисел, не превышающих данного натурального числа N. программа на паскале.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
