Đáp án: kiểm tra n có phải là số nguyên tố hay ko ko dúng vòng lặp(n nhập từ bạn phím); - program bai_giai; uses crt; var n,ktlongint; begin clrscr; write(ʹnhap nʹ);readln(n); kt=round(sqrt(n)); if(n=2)or(n mod kt<>0)then write(ʹn la so nguyen toʹ)else write(ʹn ko la so nguyen toʹ); readln end

program bai_giai; uses crt; var n,ktlongint; begin clrscr; write(ʹnhap nʹ);readln(n); kt=round(sqrt(n)); if(n=2)or(n mod kt<>0)then write(ʹn la so nguyen toʹ)else write(ʹn ko la so nguyen toʹ); readln end

uses crt;var nlongint;function nt(ilongint)boolean;begin if i=trunc(sqrt(n))+1 then exit(true); if n mod i=0 then exit(false); exit(nt(i+1));end;beginclrscr; write(ʹNhap n ʹ);readln(n); if (n>1)and(nt(2)) then writeln(ʹn la so nguyen toʹ) else writeln(ʹn khong la so nguyen toʹ);readlnend

jmdshngdns

7 tháng trước

kiểm tra n có phải là số nguyên tố hay ko ko dúng vòng lặp(n nhập từ bạn phím);

Xem đáp án

21 lượt xem

2 câu trả lời

lamsauday246

7 tháng trước

program bai_giai;

uses crt;

var n,kt:longint;

begin

clrscr;

write('nhap n:');readln(n);

kt:=round(sqrt(n));

if(n=2)or(n mod kt<>0)then write('n la so nguyen to')else write('n ko la so nguyen to');

readln

end.

tuongtaylor

7 tháng trước

uses crt;
var n:longint;
function nt(i:longint):boolean;
begin
if i=trunc(sqrt(n))+1 then exit(true);
if n mod i=0 then exit(false);
exit(nt(i+1));
end;
begin
clrscr;
write('Nhap n: ');readln(n);
if (n>1)and(nt(2)) then writeln('n la so nguyen to') else
writeln('n khong la so nguyen to');
readln
end.