Сформировать список строк L1, считав его из файла input.txt

[Gaika]

В Delphi!Сформировать список строк L1, считав его из файла input.txt. Для каждой строки списка найти значение некоторой характеристики. Занести вычисленное значение в список L2 нетипизированных указателей. Удалить из списка строк элементы, удовлетворяющие некоторому условию. Во вновь получившемся списке L1 сравнить характеристику i-го элемента S со значением i-го элемента списка L2. Если эти значения совпадают, добавить в список строк L3 элемент, состоящий из строки S и ее характеристики. Список L3 сохранить в файле output.txt.
Характеристика: количество предлогов
Условие: произведение делителей характеристики – двухзначное число
Ну у кого-нить хоть какие-нибудь мыслишки есть?Не хочу опять пересдавать...из-за одной из12 работ(((((

[Лубышев]

Задачку решать не буду. Это уже сделаете сами лишь помогу кое с чем
Итак, чтобы прочитать из файла надо

var f:Tstrings;
begin
f:=TStringList.Create();
f.LoadFromFile('input.tx');

Потом надо цикл организовать.
Берем построчно и проверяем каждую букву
Для этого опять же обьявляем переменные

var l:string;
     i,j:integer;
     s:TStrings;

s:=TStringList.Create(); 

for i:=0 to f.Count do 
begin
 l:=f.Strings[i];
  for j:=0 to lenght(l) do
  begin
  //вот теперь и проверяй тут символы на условие.
  //допустим если считать предлогом одиночный символ то  
  if (Copy(l,j-1,1)=' ') and (Copy(l,j+1,1)=' ')  then ...
 end;
 // Ну там выполняем что то.... что нужно. например переделанную l(вы же что то хотите с ней делать?) вставляем в новый стороквый массив
 s.Strings[i]:=l
end;

Теперь вам нужно все записать в новый файл
опять же цикл

var a:TextFile;
     k:integer;
begin
AssignFile(a,'output.txt');
Rewrite(a);

for k:=0 to s.Count do
begin
Writeln(a,s.Strings[k]);
CloseFile(a);
end;
end;

может где то не точности, но суть в этом.
Программу уж сами составите. (не люблю сам писать все)

Я описал только то, какие знания нужны для составления этой программы. но я не вникал в суть вашей задачи. так что, если что то не так, то уж извините если что то не так

[Gaika]

Спасибо!Я уже посчитала количество предлогов(делала правда не так как предлагаете),но все равно спасибо!А вот дальше не понимаю!Вот,допустим, получилось у меня количество предлогов в одной строке 9(произведение делителей 1*3*9=27 двузначное число)какую программу надо написать,чтобы это найти вот это произведение делителей???

[B_N]

Сообщение от Gaika

Вот,допустим, получилось у меня количество предлогов в одной строке 9(произведение делителей 1*3*9=27 двузначное число)какую программу надо написать,чтобы это найти вот это произведение делителей???

var
    product : longint;
    test    : longint;
    i       : longint;

begin
    test := 9;

    product := 1;
    for i := 1 to test do begin
        if test mod i = 0 then product := product * i;
    end;
    write (test, ' - ', product);
    if (product >= 10) AND (product < 100) then writeln (' - OK');
    readln;
end.

[Gaika]

Сапсиб огромное!