Question

Viết chương trình nhập vào hai số nguyên a,b. Nếu b <> 0 thì in ra màn hình phép chia số a cho số b, ngược lại thì in ra thông báo lỗi chia số 0

Answer 1

uses crt;

var a,b:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if b=0 then writeln('khong co phep chia cho 0')

else writeln('thuong cua phep chia ',a,' cho ',b,' la: ',a/b:4:2);

readln;

end.

Answer 2

program ho_tro;

uses crt;

var a,b,c: real;

begin

clrscr;

writeln(' nhap a va b:'); readln(a,b);

if b<>0 then c:=a/b

else writeln(' loi yeu cau nhap lai:');

writeln(' ket qua cua a chia b la:',c);

readln;

end.