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('Сумма всех чисел от 1 до ',n,'=',s);
readkey;
end.
Объяснение:
Кажется, я что-то подобное уже сегодня решал.
sums = 0
for i in range(35,80):
sums += i
print(sums)
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('Сумма всех чисел от 1 до ',n,'=',s);
readkey;
end.
Объяснение:
Кажется, я что-то подобное уже сегодня решал.
sums = 0
for i in range(35,80):
sums += i
print(sums)