(Nếu bạn thấy có gì sai nói mình nha do dài quá không biết có sai gì không)

#KietLeoTopMonGiCungDuoc :))

3.

Program bai_lam;

Uses crt;

Var kiet,leo,top:integer;

Begin

Write('Nhap ho ten cua ban');readln(kiet);

Write('Nhap lop cua ban');readln(leo);

Write('Nhap ten co giao chu nhiem cua ban');readln(top);

Readln;

End.

2.

Program bai_lam_khac;

Uses crt;

Var A,B:integer;

Begin

Write('Nhap do dai thanh ray thu nhat');readln(A);

Write('Nhap do dai thanh ray thu hai');readln(B);

If A>B then write (Thanh ray A dai hon thanh ray B); 

                   else (Thanh ray A ngan hon thanh ray B)

If A=B then write (Hai thanh ray bang nhau);

Readln;

End.

1.

Tương tự hai bài trên ạ

Bài 1 :

uses crt;

var x : integer; s : string;

begin

clrscr;

write('nhap so x : ');readln(x);

write('nhap bieu thuc : ');readln(s);

if s = '12 * x * x - 2 * x + 2' then

writeln('12 * x * x - 2 * x + 2 = ', 12 * x * x - 2 * x + 2 );

if s = '66 * x * x * x - 20 * x * x - 2 * x + 3' then

writeln('66 * x * x * x - 20 * x * x  - 2 * x + 3 = ', 66 * x * x * x - 20 * x * x - 2 * x + 3 );

if s = '(12 * x * x - 2 * x+ 4) / (2 * x + 3)' then

writeln('(12 * x * x - 2 * x + 4) / (2 * x + 3) = ', ((12 * x * x - 2 * x+ 4) / (2 * x + 3) ):2:1);

readln

end.

Bài 2 :

uses crt;

var a, b : real;

begin

clrscr;

write('nhap do dai thanh ray A : '); readln(a);

write('nhap do dai thanh ray B : '); readln(b);

if a > b then writeln('Thanh ray A dai hon thanh ray B');

if a < b then writeln('Thanh ray A ngan hon thanh ray B');

if a = b then writeln('Hai thanh ray bang nhau');

readln

end.

Bài 3 :

uses crt; 

var a, b, c : string;

begin

clrscr;

write('nhap ho ten : '); readln(a);

write('nhap lon : '); readln(b);

write('nhap co giao chu nhiem : '); readln(c);

writeln('Ho va ten : ', a);

writeln('Lop : ', b);

writeln('Co giao chu nhiem : ', c);

readln

end.