Bài 1:
program inso;
uses crt;
var i:byte;
begin
clrscr;
i:=3;
while i<=8 do
begin
write(i,' ');
i:=i+1;
end;
readln;
end.
Bài 2:
program uocso;
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
write('Cac uoc cua ',n,' la: ');
i:=1;
while i<=n do
begin
if n mod i=0 then write(i,' ');
i:=i+1;
end;
readln;
end.
Bài 3:
program cuuchuongn;
uses crt;
var n,i:byte;
begin
clrscr;
write('Nhap n: '); readln(n);
writeln('Bang cuu chuong ',n,' la: ');
i:=1;
while i<=10 do
begin
write(n,' x ',i' = ',n*i);
i:=i+1;
end;
readln;
end.
Bài 4:
program tinhtong;
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
t:=0; i:=1;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
write('Tong cac so tu 1 den ',n,' la: ',t);
readln;
end.
