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

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

0 bình luận về “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. 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

Viết một bình luận