(Dành cho học sinh giỏi) Cho hai số A và B là hai số nguyên dương và A phải nhỏ hơn B (0 < A, B < 100). Yêu cầu: Viết chương trình cho phép nhập hai số A và B đó từ bàn phím. Hãy thực hiện: a) Tìm các số nguyên tố từ A đến B. b) Tìm ước chung lớn nhất của A v

hathu

2 năm trước

(Dành cho học sinh giỏi) Cho hai số A và B là hai số nguyên dương và A phải nhỏ hơn B (0 < A, B < 100). Yêu cầu: Viết chương trình cho phép nhập hai số A và B đó từ bàn phím. Hãy thực hiện: a) Tìm các số nguyên tố từ A đến B. b) Tìm ước chung lớn nhất của A và B. viết bằng pascal

Loga Sinh Học lớp 12

0 lượt thích 16 xem

1 trả lời

Thích Trả lời

ttkt0990

uses crt;
var a,b,i,t:longint;
function nt(a:longint):boolean;
var i:longint;
begin
i:=2;
while (a>1)and(a mod i<>0) do inc(i);
nt:=i=a;
end;
begin
clrscr;
write('a,b= ');readln(a,b);
write('Cac so nguyen to: ');
for i:=a to b do
if nt(i) then write(i,' ');
writeln;
for i:=1 to a do if (a mod i=0)and(b mod i=0) then t:=i;
writeln('UCLN(',a,',',b,')=',t);
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

hieuqh5

Program NN;
Uses crt;
Var a,b,i: longint;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
If a<2 then exit(false);
For i:=2 to trunc(sqrt(a)) do
If a mod i = 0 then exit(false);
exit(true);
End;

Function UCLN(a,b: longint): longint;
Var r: longint;
Begin
While b<>0 do
Begin
r:=b;
b:=a mod b;
a:=r;
End;
UCLN:=a;
End;

Begin
Clrscr;
Write('Nhap a: '); Readln(a);
Write('Nhap b: '); Readln(b);
For i:=a to b do
If ngto(i) then Write(i,' ');
Writeln;
Write('UCLN cua ',a,' va ',b,' la: ',UCLN(a,b));
Readln
End.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Trong mặt phẳng Oxy, cho điểm M(-1; 3). Tìm tọa độ ảnh của điểm M qua phép đồng dạng có được bằng cách thực hiện liên tiếp phép vị tự tâm O tỉ số -4/3 và phép đối xứng trục Oy

cho dãy A gồm N số nguyên a1 a2 ...an.Hãy xác định bài toán và thuật toán tính tổng N số nguyên(bằng phương pháp liệt kê)

vẽ dùm mik một cậu nhóc hay cô nhóc cầm kẹo ik, nhớ vote 5 sao

Giải giúp em câu 3 phần tự luận. Em cảm ơn

Một cây cau bị giông bão thổi mạnh gãy gập ngang cây xuống.Ngọn cây chạm đất va tạo với mặt đất một góc 20°. Người ta đo đc khoảng cách từ ngọn đến gốc cây là 7,5 m. Giả sử cây cau mọc vuông góc vs mặt đất, hãy tính chiều cao cây cau đó (làm tròn đến số thập phân thứ 2)

em hãy trình bày đặc điểm khí hậu sông ngòi châu á? và tại sao nói châu á là vùng đất khoáng sản

Giúp em với,làm ra giấy và kẻ bảng phần II thì càng tốt ạ😢 Nhanh lên ạ,em cần gấp!!

lực còn lại khi một lực chỉ khử được một phần của một lực khác ngược hướng với nó gọi là?

Em hãy nêu những chi tiết chứng tỏ chị Dâu là người biết nhẫn nhịn, chịu đựng nhưng vẫn có một sức sống mạnh mẽ, tinh thần phản kháng tiềm tàng trong tác phẩm Tức nước vỡ bờ của Ngô Tất Tố

Giải thích vì sao nói thoát hơi nước vừa là tai họa vừa là tất yếu Phân biệt tai họa và tất yếu giùm mình với ạ! Mình cần giờ này lát đi thi rr

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến