Var Thu , Ngay , Thang : Byte ;
Nam : Integer ;
BEGIN
Write (` Doc Ngay Thang Nam : `) ;
Readln ( Ngay , Thang , Nam ) ;
Nam := 1900 + ( Nam mod 1900 ) ;
If Thang < 3 Then
Begin
Thang := Thang + 12 ;
Nam := Nam - 1 ;
End ;
Thu := Abs ( Ngay + Thang * 2 + ( Thang + 1 ) * 3
div 5 + Nam + Nam div 4 ) mod 7 ;
Case Thu Of
0 : Writeln (` Chu Nhat `) ;
1 : Writeln (` Thu Hai `) ;
2 : Writeln (` Thu Ba `) ;
3 : Writeln (` Thu Tu `) ;
4 : Writeln (` Thu Nam `) ;
5 : Writeln (` Thu Sau `) ;
6 : Writeln (` Thu Bay `) ;

7:Writeln('Chu nhat');
End ;
Readln ;
END .

Var Max , a , b , c , d : Real ;
BEGIN
Writeln (` Nhap gia tri cua 4 so : `) ;
Write (` a = `) ; Readln ( a ) ;
Write (` b = `) ; Readln ( b ) ;
Write (` c = `) ; Readln ( c ) ;
Write (` d = `) ; Readln ( d ) ;
Max := a ;
If Max < b Then Max := b ;
If Max < c Then Max := c ;
If Max < d Then Max := d ;
Writeln (` Gia tri lon nhat la : `, Max ) ;
Readln ;
END .

Var Tong , So : Real ; I , N , Dem : Integer ;
BEGIN
Write (` Bao nhieu so : `) ; Readln ( N ) ;
Tong := 0 ; Dem := 0 ;
For I := 1 To N Do
Begin
Write (` So = `) ; Readln ( So ) ;
If ( So > 10 ) and ( So < 20 ) Then
Begin
Tong := Tong + So ;
Dem := Dem + 1 ;
End ;
End ;
Writeln (` So cac so >10 va <20 la : `, Dem ) ;
Writeln (` Tong cua chung la :`, Tong ) ;
Readln ;

END .

a) =x(x²+2xy+y²-9)

=x[(x+y)²-3² ]

=x(x+y+3)(x+y-3)

b) 2(x-3) -x²+3x=0

⇔2(x-3)-x(x-3)=0

⇔(x-3)(2-x)=0

⇔ x-3=0 ⇔x=3

2-x=0 x=2

1+4+9+16+...+100 ta thấy các số trên đều cộng 1 số lẻ

vậy 1+4+9+16+....+100=385

2)

program bai2;

var thang:byte;

begin

repeat

write('Nhap thang vao day ');readln(thang);

until thang>0;

case thang of

2,3,4:writeln('Thang ',thang,' la mua xuan');

5,6,7:writeln('Thang',thang,'la mua ha');

8,9,10:writeln('Thang',thang,'la mua thu');

11,12,1:writeln('Thang',thang,'la mua dong');

readln

end.

program bai1;

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

i,n,k:longint;

begin

write('NHap so N= ');readln(n);

for i:=1 to n do

write('A[',i,']');readln(a[i]);

write('NHap them mot so vao day ');readln(k);

writeln(a[i],' ',k);

readln

end.

(x-135)x5:3=310

=> (x-135)x5=310x3=930

x-135=930:5=186

=>x=186+135=321

giải pháp nhằm đưa Hoa Kỳ thoát ra khỏi cuộc đại suy thoái kinh tế 1929-1933. Chính sách kinh tế mới gắn liền với tên tuổi của vị tổng thống thứ 32 của Hoa Kỳ, Franklin Delano Roosevelt (gọi tắt là FDR)

1.0 khí 

2.0 biết

3.tiền 0 có = cò 0 tiến = cò lùi

4.(cò gầy) cò 0 béo = bèo 0 có

5.thầy 0 có = cò 0 thấy = cò mù

6.1 chú chuột đồng = 1 đống chuột chù