viết chương trình chia hết cho 1 số bất kì

0 bình luận về “viết chương trình chia hết cho 1 số bất kì”

1. uses crt;
   var x,y,z:integer;
   begin
        clrscr;
        write(‘Nhap so bi chia: ‘); readln(x);
        write(‘Nhap so chia: ‘); readln(y);
        z:=x div y;
        write(‘Thuong: ‘,z);
        readln;
   end.

   Bình luận

2. //danhle

   var n,m:integer;

   begin

      write(‘nhap so chia’);read(n);

      write(‘nhap so can chia’);read(m);

      write(‘n div m);

   end.

   Bình luận