Question

cho tập văn bản có tên Ktra.TXT lưu trữ các số nguyên ngẫu nhiên. Tính và in kết quả ra tệp cóbteen là KQKT.TXT các số chia hết cho 2. và 3

Answer 1

const fi='ktra.txt'

fo='kqkt.txt'

var f1,f2:text;

a:array[1..100]of integer;

n,i,dem:integer;

begin

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

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

while not eoln(f1) do

begin

n:=n+1;

read(f1,a[n]);

end;

for i:=1 to n do

if a[i] mod 6=0 then write(f2,a[i]:4);

close(f1);

close(f2);

end.