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

[SashaPRO]

Имеется текстовый файл, содержащий действительные числа.переписать в другой текстовый файл те элементы,которые кратны числу к.
ЗАДАЧА НА ПАСКАЛЬ

[Dirt]

Привет, напишите пример, как выглядят числа в файле

[SashaPRO]

ну как я понял тип integer а выглядят ну в любом порядке : 12 23 34 34 1
1 2 3 34 2 1

[ABUN]

var
f1,f2:file of real;
...
reset(f1);
rewrite(f2);
while not eof(f1) do
begin
read(f1,x);
if x mod k then write(f2,x);
end;
closefile(f1);
closefile(f2);

ну что-то вроде этого

[SashaPRO]

а нельзя полностью,просто попросили решить,мне скинуть надо,экзамен вот до сих пор сдает

[ABUN]

var
f1,f2:file of real;
begin
assignfile(f1,'c:\one.dat'); //имя любое, в принципе
assignfile(f2,'c:\two.dat'); //имя любое, в принципе
reset(f1);
rewrite(f2);
while not eof(f1) do
begin
read(f1,x);
if x mod k then write(f2,x);
end;
closefile(f1);
closefile(f2);
end;

Ну все, лениво проверять в делфе, должно работать. Если нет - то децл отладки и все дела!

[SashaPRO]

оу,блин,эт же на паскаль нужно

[Dirt]

Тут ошибка

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

надо так

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

[ABUN]

а если файл текстовый и в каждой строке по числу - еще проще:
var
list, list2:tstringlist;
i:integer;
begin
list:=tstringlist.create;
list2:=tstringlist.create;
list.loadfromfile('c:\one.dat');
for i:=0 to list.count-1 do
if strtofloat(list[i]) mod k then
list2.add(floattostr(list[i]));
list2.savetofile('c:\two.dat');
end;

[SashaPRO]

мм,ну делфи эт понятно,но тут типа паскаль должен быть