Cho trước một số nguyên dương N (0 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Cho trước một số nguyên dương N (0
0 bình luận về “Cho trước một số nguyên dương N (0<N<10^6). Viết chương trình tìm số nguyên dương K nhỏ nhất sao cho tích K và N là một số chính phương.”
program Min; var N,K,x,y:longint; xet:boolean; begin write(‘Nhap N: ‘ ); readln(N); K:=1; xet:=false; repeat begin x:=K*N; y:=trunc(sqrt(x)); if sqr(y)=x then xet:=true else inc(K); end; until xet=true; write(‘K can tim la: ‘,K); readln end.
Bạn tham khảo nha, chỗ nào chưa hiểu thì hỏi mình 😀
program Min;
var N,K,x,y:longint;
xet:boolean;
begin
write(‘Nhap N: ‘ ); readln(N);
K:=1; xet:=false;
repeat
begin
x:=K*N;
y:=trunc(sqrt(x));
if sqr(y)=x then xet:=true else inc(K);
end;
until xet=true;
write(‘K can tim la: ‘,K);
readln
end.
Bạn tham khảo nha, chỗ nào chưa hiểu thì hỏi mình 😀