n = int(input('Nhập số n lớn hơn 2: '))

tong = 0

i = 2

while i <= n:

       tong += i

       i += 1

print('Tổng các số từ 2 đến', n, 'là:', tong)

Var i,s:integer;

Begin

i:=0;

While s<=1000 do

Begin

i:=i+1;

s:=s+i;

End;

Write('n nho nhat la ',i);

Readln;

End.

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n>=10;

a[1]:=10;

i:=1;

while i<=n do 

  begin

i:=i+1;

a[i]:=a[i-1]+2;

end;

dem:=0;

for i:=1 to n do 

  begin

write(a[i]:4);

dem:=dem+1;

if dem mod 10=0 then writeln;

end;

readln;

end.

Program HOC24;

var i,n,t: integer;

begin

n:=1; t:=0;

while t<=500 do

begin

t:=t+n;

n:=n+1;

end;

writeln('Tong la: ',t);

write('So N nho nhat de tong lon hon 500 la: ',n);

readln

end.

*Cách khác: Dùng Repeat Until

uses crt;

var n,t:integer;

begin

clrscr;

t:=0;

n:=0;

repeat

   n:=n+1;

t:=t+n;

until t>500;

writeln(t);

writeln(n);

readln;

end.

uses crt;

var s,n:integer;

begin

clrscr;

s:=0;

n:=0;

while s<=50 do 

begin

n:=n+1;

s:=s+n;

end;

writeln(n);

writeln(s);

readln;

end.

Program HOC24;

var i,n,t: integer;

begin

t:=0; i:=1;

while t<=500 do

begin

t:=t+i;

i:=i+1;

end;

write('Ket qua la: ',t);

readln

end.

program Le_Nho_Hon_Hoac_Bang_n;

uses crt;

var

       n, i: integer;

begin

       clrscr;

       write('Nhap vao mot so nguyen duong n: ');

       readln(n);

       while n <= 0 do

       begin

              writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');

              readln(n);

       end;

       clrscr;

       writeln('Cac so le nho hon hoac bang ', n, ' la:');

       i := 1;

       while i <= n do

       begin

              if i mod 2 <> 0 then

                     writeln(i);

              i := i + 1;

       end;

       readln;

end.

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

if n<=5 then write('So vua nhap chua lon hon 15') else

begin

t:=0; i:=10;

while i<=n do

begin

t:=t+i;

i:=i+1;

end;

end;

write('Tong la: ',t);

readln

end.