bài 1:
Program tong_day;
Uses crt;
Var n,i:integer;
day:array[1..100] of integer;
s:longint;
Begin
Clrscr;
Write['Nhap so phan tu cua day: '];read[n];
For i:=1 to n do
Begin
Write['Nhap phan tu thu ',i,': '];Read[day[i]];
s:=s+day[i];
End;
Write['Tong cac so vua nhap cua day la: ',s];
Readln;
End.
bài 2:
Program tong_chan_day;
Uses crt;
Var n,i:integer;
day:array[1..100] of integer;
s:longint;
Begin
Clrscr;
Write['Nhap so phan tu cua day: '];read[n];
For i:=1 to n do
Begin
Write['Nhap phan tu thu ',i,': '];Read[day[i]];
If [day[i] mod 2 = 0] then s:=s+day[i];
End;
Write['tong cac so chan cua day la: ',s];
Readln;
End.
bài 3:
Program in_le_day;
Uses crt;
Var n,i:integer;
day:array[1..100] of integer;
Begin
Clrscr;
Write['Nhap so phan tu cua day: '];read[n];
For i:=1 to n do
Begin
Write['Nhap phan tu thu ',i,': '];Read[day[i]];
End;
Write['Cac so le trong day la: '];
For i:=1 to n do If [day[i] mod 2 = 1] then Write[day[i],' '];
Readln;
End.
bài 4:
Program in_am_day;
Uses crt;
Var n,i:integer;
day:array[1..100] of integer;
Begin
Clrscr;
Write['Nhap so phan tu cua day: '];read[n];
For i:=1 to n do
Begin
Write['Nhap phan tu thu ',i,': '];Read[day[i]];
End;
Write['Cac so am trong day la: '];
For i:=1 to n do If [day[i] < 0] then Write[day[i],' '];
Readln;
End.
bài 5:
Program in_tang_dan;
Uses crt;
Var n,i,j,tam:integer;
day:array[1..100] of integer;
s:longint;
Begin
Clrscr;
Write['Nhap so phan tu cua day: '];read[n];
For i:=1 to n do
Begin
Write['Nhap phan tu thu ',i,': '];Read[day[i]];
End;
For i:=1 to n-1 do
For j:=i+1 to n do
If [day[i]>day[j]] then Begin tam:=day[i]; day[i]:=day[j]; day[j]:=tam; End;
Write['Day duoc sap xep tang dan la: '];
For i:=1 to n do write[day[i],' '];
Readln;
End.
Viết chương trình in ra màn hình 10 số tự nhiên đầu tiên.
Viết chương trình tính tổng các số từ 1 đến 100. Viết chương trình tính tổng các số từ 1 đến N.
Viết chương trình tổng các số chẵn từ 1 đến N.
Viết chương trình tính N giai thừa.
Viết chương kiểm tra xem N có phải số nguyên tố hay không.
Viết chương trình ra màn hình các số nguyên tố nhỏ hơn N.
Viết chương trình vẽ ra hình chữ nhật có chiều ngang là W, chiều dọc là H, với W và H là 2 số nguyên nhập từ bàn phím.
Viết chương trình nhập không giới hạn số, kết thúc khi nhập vào số 0.
Viết chương trình tìm số hạng thứ N của dãy Fibonacci: 1 ; 1 ; 2 ; 3 ; 5 ; 8 ; 11 ; . . . {\displaystyle 1;1;2;3;5;8;11;...}