Question

viet phuong trinh tao tep so.txt gom n so nguyen duong chan

Answer 1

uses crt;

const fi='tepso.txt';

var n,i:integer;

f1:text;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('Nhap n='); readln(n);

for i:=0 to 2*n-2 do

if i mod 2=0 then write(f1,i:4);

close(f1);

readln;

end.

Answer 2

uses crt;
var n,i:integer;
a: array[1..100] of integer;
f: text;
const fi = 'so.txt';
begin
clrscr;
write('Nhap so phan tu: ');readln(n);
assign(f,fi);
rewrite(f);
for i:= 1 to n do
begin
write('Nhap so thu ',i,': ');
readln(a[i]);
if a[i] mod 2 = 0 then
writeln(f,a[i]);
end;
close(f);
readln
end.