1

Program Hotboy

Uses crt; 

Var s,i,n : longint;

Begin

Clrscr;

Write(‘Nhap n: ‘); Readln(n); 

s:=0; i:=1;

 While i<=n do

  Begin

  s:=s+i; i:=i+1;

End; 

Writeln(‘tong tu 1 den n la’,S);

Readln

End.

2

uses crt;
var n,i,t:longint;
begin
clrscr;
write('n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln('tong cua cac so tu 1 den ',n,' la: ',t);
readln;
end.

3

uses crt;

var i,m,n,t:integer;

begin

clrscr;

repeat

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

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

until (0<=m) and (0<=n) and (m<n);

t:=0;

for i:=m to n do 

  t:=t+i;

writeln('Tong cac so tu nhien trong khoang tu ',m,' toi ',n,' la: ',t);

readln;

end.

Câu 1:

program tu_1den_100;

uses crt;

var x,dem:integer;

begin

clrscr;

while (dem<=100) do 

begin

x:=x+dem;

dem:= dem+1;

end;

write('Tong cua so la= ');

readln;

end.

Câu 2:

Program TinhTong;

Uses crt;

Var S,i,n:Integer;

BEGIN

Write( ‘ Nhap so n:’ ); Readln( n );

S: = 0;

For i:=1 to n do

S:=S + i;

Writeln( ‘Tong = ’, S);

Readln;

END.