Bài 1:

program oken;

uses crt;

var a,b,c: integer;

begin

clrscr;

writeln('giai phuong trinh: a*x+b=c);

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

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

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

writeln('phuong trinh moi: ',a,'*x+',b,'=',c);

writeln('Vay phuong trinh tren co nghiem x=',(c-b)/a);

readln;

end.

Bài 2:

program oken;

uses crt;

begin

clrscr;

write('Chao ban');

readln;

end.

Câu 1 :

uses crt;

var a, b : integer;

begin

clrscr;

write('Nhap he so a, b : '); readln(a, b);

if a = 0 then write('Vo nghiem);

if (a = 0) and (b = 0) then write('Vo so nghiem');

if a <> 0 then write('x = ', b / a : 2 : 1);

readln

end.

Câu 2 :

uses crt;

begin

clrsr; write('Chao ban');

readln

end.