Program NhatNgu;
Uses crt;
Var a,b,c,max: longint;
Begin
Clrscr;
Write('Nhap a: '); Readln(a);
Write('Nhap b: '); Readln(b);
Write('Nhap c: '); Readln(c);
max:=a;
If b>max then max:=b;
If c>max then max:=c;
Write('Max = ',max);
Readln
End.
Bài 2:
Program NhatNgu;
Uses crt;
Var a,b: longint;
Begin
Clrscr;
Write('Nhap a: '); Readln(a);
Write('Nhap b: '); Readln(b);
If (a=0) then
If (b=0) then
Write('Vo so nghiem')
Else Write('Vo nghiem')
Else Write('X = ',-b/a:0:2);
Readln
End.
Nhớ cho mik CTLHN nha
