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 15/07/2021 Bởi Ruby 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
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. Bình luận
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.