program sosanh;

uses crt;

var a,b,c : real;

begin

      readln(a,b);

      c:= a-b;

      if c>0 then writeln(' a lon hon b');

      if c<0 then writeln('a nho hon b');

      if c=0 then writeln('a bang b');

      readln;

end.

Dốt tin nên chỉ làm dc vậy, đúng thì 5 sao nhé

B

program tim_tuoi;

uses crt;

var i,j,ngaysinh,tuoi, uoctuoi,k:integer;

begin

    clrscr;

    for i:=1 to 9 do

    for j:=0 to 9 do

    for k:=0 to 9 do

    begin

    uoctuoi:=sqr(i)+sqr(j)+sqr(k);

    tuoi:=i*100+j*10+k;for ngaysinh:=1 to 31 do

    if tuoi =uoctuoi+ngaysinh then write('tuoi cua cu la: ',tuoi);

    end;

    readln;

end.

con cach de hon khong

Input 20 số chẵn đầu tiên

Output tính tổng S

Thuật toán 

Bước 1 : Nhập 40 số ( vì 20 số chẵn => từ 1 đến n phải 40 số mới đủ 20 số chẵn )

Bước 2 : gán s:=0

Bước 3 : cho biến i chạy từ 1 đến 40 nếu imod2 = 0 => S := S + i

Bước 4 : in ra kết quả và kết thúc thuật toán

Chương trình

Program Hotboy ;

Uses crt ;

Var i,s : integer ;

Begin 

Clrscr ;

For i:= 1 to 40 do

Begin

If ( i mod 2=0 ) then s;=s+i

Write('ting tong',S)

End ;

Readln

End .

program phuong_trinh;

uses crt;

var a,b:real;

begin

writeln('chuong trinh giai phuong trinh ã+b=0');

write('nhap he so a ='); readln(a);

write('nhap he so b ='); readln(b);

If (a<>0) then writeln('phuong trinh',a:10:2,'x+',b:10:2,'=0',' co nghiem x=;'-b/a:10:2);

If (a=0) and (b=0) then writeln('phuong trinh co vo so nghiem');

If (a=0) and (b<>0) then writeln('phuong trinh vo nghiem');

readln

end.

\(ax+b=0< =>x=-\frac{b}{a}\)