надо написать программу выполняющую чтение из текстового файла целых чисел и вывод на печать только четных чисел. собственно вот...
Var
f : text;
Put : string;
a : integer;
Begin
Put := 'D:\-stas\del\fi1.txt';
assign(f, Put);
reset(f);
while not Eof(f) do
begin
readln(f, a);
if not odd(a)
then
writeln(a);
end;
close(f);
readln
End.
теперь хотелось бы внести не большие изменения
1) можно ли вместо Полного пути к файлу использовать путь из текущей деректории?
2) можно ли обрабатывать не только первые числа в строке, а все...
по идее должно быть как-то так..
...
while not Eof(f) do
begin
while not eoln do
begin
readln(f, a);
if not odd(a)
then
writeln(a);
end;
end;
...
но ведь загвостка, как я понимаю в том что межну числами числами может быть разное количество отступов(а приведенная программа их вообще не обрабатывает) , может надо читать из файла строку пока не будет разделителя, а потом преабразововать в число?
помогите пожалуйста...
Сообщение отредактировано: compiler -