Lập trình đơn giản

DK

Viết chương trình đọc tệp từ file input.inp kiểm tra xem số đó có phải số nguyên tố hay không và ghi kết quả vào file output.out.

giúp mình với. thanks

NT
15 tháng 6 2020 lúc 13:04

const fi='input.inp';

fo='output.out';

var f1,f2:text;

n,i,kt:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

kt:=0;

for i:=2 to n-1 do

if n mod i=0 then kt:=1;

if kt=0 then writeln(f2,'co')

else writeln(f2,'khong');

close(f1);

close(f2);

end.

Bình luận (0)
VT
15 tháng 6 2020 lúc 20:51
uses crt; var n:longint;function nt(n:longint):boolean; var i:longint; beginnt:=false; if n<2 then exit; for i:=2 to n div 2 do if n mod i=0 then exit;nt:=true;end; begin writeln('nhap n=');readln(n);if nt(n) then write('yes') else write('no');readlnend.
Bình luận (0)

Các câu hỏi tương tự
HN
Xem chi tiết
KH
Xem chi tiết
TP
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
QN
Xem chi tiết
BD
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết