Задача на текстовый файл,знакомая сдает сейчас,нужно решить срочно

[ABUN]

Сообщение от Dirt

Тут ошибка

if x mod k then write(f2,x);

надо так

if x mod k = 0 then write(f2,x);

согласен! :-) насморк замучал - мозги не варят

[ABUN]

этот код будет работать в паскале:
var
f1,f2:file of real;
...
reset(f1);
rewrite(f2);
while not eof(f1) do
begin
read(f1,x);
if x mod k=0 then write(f2,x);
end;
close(f1);
close(f2);

[ABUN]

только не забыть про
assign(f1,'путь');
assign(f2,'путь2');
перед reset(...

[Dirt]

вот держи, проверил все работает

uses crt;
var
f1,f2:text;
s,cif:string;
nom,k,err,prov:integer;
begin
clrscr;
k:=5;
assign(f1,'in.txt');
assign(f2,'out.txt');
reset(f1);
rewrite(f2);
while not eof(f1) do begin
readln(f1,s);
while pos(' ',s) > 0 do begin
nom := pos(' ',s);
cif:=copy(s,0,nom-1);
delete(s,0,nom);
val(cif, prov, err);
if prov mod k = 0 then write(f2,' ',cif);
end;
val(s, prov, err);
if prov mod k = 0 then write(f2,' ',s);
end;
writeln('norm');
readkey;
close(f1);
close(f2);
end.

[Dirt]

Или если к надо вводить то:

uses crt;
var
f1,f2:text;
s,cif:string;
nom,k,err,prov:integer;
begin
clrscr;
write('Vvedite K='); readln(k);
assign(f1,'in.txt');
assign(f2,'out.txt');
reset(f1);
rewrite(f2);
while not eof(f1) do begin
readln(f1,s);
while pos(' ',s) > 0 do begin
nom := pos(' ',s);
cif:=copy(s,0,nom-1);
delete(s,0,nom);
val(cif, prov, err);
if prov mod k = 0 then write(f2,' ',cif);
end;
val(s, prov, err);
if prov mod k = 0 then write(f2,' ',s);
end;
writeln('norm');
readkey;
close(f1);
close(f2);
end.