Kiểm tra hai số a, b có phải hai số nguyên tố cùng nhau hay không

229

Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

Top 1000 câu hỏi thường gặp môn Tin học (Phần 6)

Câu 90: 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)

Lời giải:  

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.

Đánh giá

0

0 đánh giá