Câu hỏi:

12/07/2024 1,159

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)

Quảng cáo

Trả lời:

verified
Giải bởi Vietjack

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.

CÂU HỎI HOT CÙNG CHỦ ĐỀ

Câu 1

Lời giải

Lời giải:

Đáp án đúng: D

Xem, sửa, bổ sung và xóa dữ liệu

Câu 2

Lời giải

Lời giải:

Đáp án D.

Microsoft Excel không phải là hệ quản trị cơ sở dữ liệu quan hệ.

Câu 3

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 4

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 5

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 6

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 7

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP