Tin học viết chương trình nhập vào 2 số nguyên dương a b và in ra màn hình ước số của hai số nguyên đó, Ước số chung lớn nhất cảu hai số đó Viết chương trình 18/07/2021 By Vivian viết chương trình nhập vào 2 số nguyên dương a b và in ra màn hình ước số của hai số nguyên đó, Ước số chung lớn nhất cảu hai số đó Viết chương trình in lên màn hình n số nguyên tố đàu tiên
Câu 2:Program NTO;Uses crt;Var n,i,count: longint; Function is_Prime(n: longint): boolean;Var i: longint;Begin If n<2 then exit(false); For i:=2 to trunc(sqrt(n)) do If n mod i = 0 then exit(false); Exit(true);End; Begin Clrscr; Write(‘Nhap n: ‘); Readln(n); i:=1; count:=0; While count<=n do Begin inc(i); If is_Prime(i) then Begin Write(i,’ ‘); inc(count); End; End; ReadlnEnd. Trả lời
bài 1: uses crt;var a,b: integer;beginclrscr;write(‘Nhap a: ‘); readln(a);write(‘Nhap b: ‘); readln(b);while a<>b doif a>b then a:=a-b else b:=b-a;writeln(‘UCLN: ‘,a);readln;end. bài 2: uses crt;var n,d,e: integer;{—-Ham Kiem Tra Nguyen To—-} snt: boolean;function ktnt(a:integer): boolean;var i: integer;kt: boolean;beginkt:= true;if a<=1 then kt:=false; for i:=2 to trunc(sqrt(a)) do if (a mod i = 0) then kt:=false; ktnt:=kt; end; {—Chuong Trinh Chinh—} beginclrscr;write(‘Nhap n: ‘); readln(n);for e:=1 to n do if ktnt(e) then begin d:=d+1; write(e,’ ‘); end;writeln;writeln(‘Co ‘,d,’ so’);readln;end. đã test mong được vote! Trả lời