Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
khonopro

viết chương trình nhập hai số a,b từ bàn phím, in ra màn hình tất cả ước chung của a và b

Phía sau một cô gái
6 tháng 3 2023 lúc 20:38

program UocChung;

var

      a, b, i: integer;

      uocchung: array[1..100] of integer;

      n: integer;

begin

      write('Nhap a=');

      readln(a);

      write('Nhap b=');

      readln(b);

      n := 0;

      for i := 1 to 100 do

            if (a mod i = 0) and (b mod i = 0) then

            begin

                  uocchung[n] := i;

                  n := n + 1;

            end;

      write('Uoc chung cua ', a, ' va ', b, ' la: ');

      for i := 0 to n-1 do

             write(uocChung[i], ' ');

      readln;

end.


Các câu hỏi tương tự
Huhu chỉ mình với
Xem chi tiết
Huhu chỉ mình với
Xem chi tiết
Quỳnh
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Tích Nguyệt
Xem chi tiết
Nguyễn Công Vinh
Xem chi tiết
Kim Thái
Xem chi tiết
khonopro
Xem chi tiết
Nhân lê
Xem chi tiết