Дан текстовый файл (слова разделены не менее как одним пробелом). Найти и вывести в новый файл все слова, в которых есть хотя бы одна цифра. Максимальная длина строки в начальном файле - 255 символов, кол-во строк - как минимум две. Для поиска использовать процедуру или функцию...
Пока у меня столько лишь есть... Теоретически-то вроде понятно, а практически - нет...
function count (stroka: string) : string;
const numbers = ['0'..'9'];
var
i, j: integer;
word, f: string;
begin
while length (stroka) > 0 do
begin
for i:= 1 to length (stroka) do
if (word [i] in numbers) then
{Вот тут уже не знаю как... }
end;
end;
var f1, f2 :text;
eil, nach, kon : string;
begin
writeln ('vvesti nazvanie isxodnogo fajla');
readln (nach);
assign (f1, 'input.txt');
writeln('vvesti nazvanie vyxodnogo fajla');
readln (kon);
assign(f2,'output.txt');
{$I-}
reset(f1);
if (ioresult = 0) then begin
rewrite(f2);
{$I+}
if (ioresult = 0) then begin
while not eof(f1) do begin
readln(f1, eil);
writeln(f2, count(eil));
end;
close(f2);
end
else writeln('nelzia otkryt fajl rezultatov');
close(f1);
end
else writeln ('neudalos otkryt isxodnyj fajl');