Viết chương trình chứng minh rằng phép chia giữa hai số nguyên, chẳng qua chỉ là phép trừ. In kết quả ra màn hình là số thương và số dư.
2 câu trả lời
program chungminh;
uses rt;
var sbc,sc,thuong:integer;
begin
clrscr;
write('Nhap so bi chia: '); readln(sbc);
write('Nhap so chia: '); readln(sc);
thuong:=0;
while sbc>=sc do
begin
inc(thuong);
sbc:=sbc-sc;
end;
writeln('Thuong la: ',thuong);
writeln('So du la: ',sbc);
{so du la sbc, sau khi tru xong thi sbc luon be hon sc va do la phan con lai khong chia het}
readln
end.
Program Chia_la_tru;
Uses Crt;
Var SBC,SC,T:integer;
Begin ClrScr;
Write(' Nhap so bi chia : '); Readln(SBC);
Write(' Nhap so chia : '); Readln(SC);
T:=0;
While SBC>=SC do
Begin
T:=T+1;
SBC:=SBC-SC;
End;
Write(' Ket qua duoc ',T,' du ',SBC);
Readln;
End.
