var f: textfile;
...
while not eof(f) do begin
readln(f, s);
for i:=1 to length(s) do
if odd(i) write(s);
writeln;
end;
паскаль.ввести текстовый файл,вывести нечетные.
помогите сделать легкую вроде лабу ))
ввести посимвольно текстовый файл до конца файла.Вывести на печать каждый нечетный символ.
пожалуйста не используйте больше сложных функций :)
ввести посимвольно текстовый файл до конца файла.Вывести на печать каждый нечетный символ.
пожалуйста не используйте больше сложных функций :)
вывести на на экран этот файл можно примерно так:
Код: