Question

Bài 1: Viết chương trình tính phần nguyên và phần dư của phép chia số nguyên a cho số nguyên b.

Bài 2: Viết chương trình giải phương trình ax+b=0 với a và b được nhập từ bàn phím.

Answer 1

bài 1

Answer 2

Tick mình( bài 2):

program ptbnhat;

uses crt;
var a, b: longint;
Begin
write('Nhap so a ='); readln(a);
write('Nhap so b ='); readln(b);
If (a = 0) and (b = 0)
then writeln ('Phuong trinh co nghiem x thuoc R')
else
if (a=0) and (b<>0) then writeln('Phuong trinh vo nghiem')
else
writeln(Nghiẹm la x= ' -b/a);
readln
end.