Николай Каряев
Николай Каряев

Pascal.Скажите, пожалуйста, что и куда добавить нужно?

дан файл, содержащий текст сформировать другой файл, содержащий нечетные строки первого файла.
Вот мой текст программы:
uses crt;
var f1,f2:text;
i,k:integer;
st:string;
Begin
assign(f1, 'd:\file1.txt');
reset(f1);
assign(f2, 'd:\file2.txt');
rewrite(f2);
While not Eof(f1) do
begin
READ(f1,st);
if length(st) mod 2 <> 0 then
writeln(f2,st,' ');
end;
close(f1);
close(f2);
end.
во второй файл не записывает эти строки.. .

ЮЧ
Юра Черников

Так ты проверяешь строки на нечётное значение длины, а не порядкового номера.

Похожие вопросы
Что нужно добавить в рыбный фарш?
Нужны ВК друзья, добавитесь??)
как добавить картинку в яндекс. как добавить картинку в яндекс?
нужна помощь! скажите пожалуйста как добавить виртуальную память????
Напишите след. предложения в Present Perfect, добавив нужные наречия :
H2S+x=H2SO3 помогите пожалуйста?? ) что нужно добавить?
Мне нужно на сайт добавить скайп.
Нужно ли что-то добавить?
Люди напишите пожалуйста что лишнее, а что нужно добавить.
Сколько воды нужно добавить! Решите пожалуйста решение нужно и ответ!