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)
Câu hỏi trong đề: Trắc nghiệm tổng hợp Tin học năm 2023 có đáp án !!
Quảng cáo
Trả lời:
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.
Hot: Danh sách các trường đã công bố điểm chuẩn Đại học 2025 (mới nhất) (2025). Xem ngay
Sách thầy cô Vietjack biên soạn:
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Lời giải
Lời giải:
Đáp án đúng: D
Xem, sửa, bổ sung và xóa dữ liệu
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ệ.
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.
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.
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.
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.
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.
Nhắn tin Zalo