Soạn thảo văn bản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Việt Anh

Kiểm tra hai số a, b có phải hai số nguyên tố cùng nhau hay không? (Bài tập Pascal CLB Tin học lớp 6)

Ai giúp mk với!!!!!!!!!

Nguyễn Thị Ngọc Minh
25 tháng 4 2020 lúc 12:15

program nguyen_to_cung_nhau;

uses crt;

var a,b:longint;

function ucln(a,b:longint):longint;

begin

while a<>b do

if a>b then

a:=a-b else

b:=b-a;

if a=b then

ucln:=a;

end;

begin

clrscr;

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

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

if ucln(a,b)=1 then

writeln('la 2 so nguyen to cung nhau')

else writeln('ko la 2 so nguyen to cung nhau');

readln

end.


Các câu hỏi tương tự
Nguyễn Việt Anh
Xem chi tiết
Bùi Linh Chi
Xem chi tiết
Vương Nguyên
Xem chi tiết
Chu Hoàng Thủy Tiên
Xem chi tiết
Đinh Như Quỳnh
Xem chi tiết
Ngô Hải Nam
Xem chi tiết
hà đăng mạnh
Xem chi tiết
hà đăng mạnh
Xem chi tiết