Hồ Phượng
01/01/1970
| Số câu hỏi | 0 |
| Số câu trả lời | 1 |
| Điểm | 22 |
| Kết bạn | |
Bạn bè (0)
Hoạt động gần đây (1)
-
Hồ Phượng đã trả lời trong câu hỏi: Viết chương trình kiểm tra xem hai số a và b có phải là hai số nguyên tố tương đương không với a và b được nhập từ bàn phím? Cách đây 4 năm
program bt;
var f1,f2:text;
i,n,a,b,l,j,k,s,f,g,e,m:integer;
h,p:array[1..10000] of integer;
begin
assign(f1,'nt.inp');
assign(f2,'nt.out');
reset(f1);
rewrite(f2);
readln(f1,n);
for i:= 1 to n do
begin
read(f1,a,b);
l:=0;
for j:= 1 to a do
if a mod j =0 then
begin
kt:=true;
if j<=1 then kt:=false;
for f:= 2 to round(sqrt(j)) do
if j mod f = 0 then kt:= false;
if kt then
begin
l:= l+1;
h[l]:= j;
end;
end;
for m:= 1 to l do write(f2,h[m]:3);
s:=0;
for k:= 1 to b do
if b mod k=0 then
begin
kt:=true;
if k<=1 then kt:= false;
for g:= 2 to round(sqrt(k)) do
if k mod g=0 then kt:= false;
if kt then
begin
s:=s+1;
p[s]:=k;
end;
end;
for e:= 1 to s do write(f2,p[e]:3);
kt:=false;
if l=s then
for j:= 1 to l do
if h[j]=h[j] then kt:=true;
if kt then writeln(f2,a,' ',b,'la cap so nto tuong duong')
else writelln(f2,a,' ',b,' ko la cap so nto tuong duong');
end;
close(f1);
close(f2);
end.
Điểm thưởng gần đây (1)
-
Hồ Phượng: Login đăng nhập hàng ngày (+2đ) Cách đây 3 năm
