Mình là 4 bài đầu:
1/
uses crt;
var s,i:byte;
begin
clrscr;
s:=0;
while i<10 do begin inc(i); s:=s+i; end;
writeln('Tong 10 so tu nhien dau tien S= ',s);
readln;
end.
2/
uses crt;
var s,i:byte;
begin
clrscr;
s:=0;
while i<10 do begin inc(i); s:=s+i; end;
writeln('Tong 10 so tu nhien dau tien S= ',s);
readln;
end.
3/
uses crt;
var i:byte; t:word;
begin
clrscr;
t:=1;
while i<10 do begin inc(i); t:=t*i; end;
writeln('Tich 10 so tu nhien dau tien T= ',t);
readln;
end.
4/
uses crt;
var i,n:byte; t:longint;
begin
clrscr;
write('n=');readln(n);
t:=1;
while i<n do begin inc(i); t:=t*i; end;
writeln('Tich ',n,' so tu nhien dau tien T= ',t);
readln;
end.
