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ư.

Question

hauyen · Answer

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.

diepbich · Answer

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.

0 bình luận về “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ư.”