Viết Phương trình con Tìm UCLN của 2 số nguyên a,b Tìm BCLN của 2 số nguyên a,b Kiểm tra số nguyên tố Hoán đổi 2 số a,b
1 câu trả lời
program tim_uoc;
uses crt;
var n,i,j:longint;
begin
clrscr;
write('nhap so n:');readln(n);
write('cac uoc cua n la:');
for i:=1 to n do
if n mod i=0 then write(i:3);
writeln;
j:=0;
for i:=1 to n do
if n mod i=0 then j:=j+1;
if j=2 then writeln(n,' la so nguyen to')
else writeln(n,' khong phai la so nguyen to');
readln;
end.
