Câu 1: Cho biết kết quả biến S đoạn chương trình sau

P:=1; S:=0;

While S<15 do

Begin

          P:=P+1;

          S:=S+P;

End;

Câu 2: Chương trình sau cho kết quả thế nào ?Vì sao?

Var a, b, S: integer;

begin

              a:=50;

              b:=27;

             while b< a do S:=S+a-b;

             write(„tong S=‟, S);

end.

Cho a,b,c,d dương và a>b và c>d . Chứng minh ac>bd

cho a>1 , b>1. Tìm Min A=a^2/b-1 + b^2/a-1

Rút gọn phân thức sau: 

25x^2-20x+4/25x^2-4

1-x/x+1-3+2x/x+1=0

1-x/x+1-3+2x/x+1=0

Bài 1:Cho m < n.Chứng minh 2020+m+2019 < 2020n+2019

Bài 2:So sánh x và y nếu:25x - 10 ≥ 25y - 10

Bài 3:Cho 2a > 2b.Hãy so sánh 3a + 2020 và 3b + 2019

Tìm và sửa lỗi sai các câu sau, giải thích rõ lỗi sai đó

a, Var begin:real;

b, Const y:integer;

c, Var bk=3

d, Var AB:array[1...100] of integer;

e, Var Diem: array[3.8...4.5] of real;

Tin 8

help me

cho tam giác abc có ba góc nhọn. các đường cao ah, be,cf cắt nhau tại h. Chứng minh :

a)tam giác abh và edh đồng dạng với nhau

b)Tam giác aef đồng dạng với abc và tam giác bdf đồng dạng edc 

hai rổ cam có 40 quả nếu chuyển từ rổ 1 sang rổ 2 5 quả thì số cam ở rổ 2 gấp 3 lần số cam ở rổ 1 . tính số cam ở mỗi rổ lúc đầu