Строки Опции

[Herotic]

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

[Client]

добавить переменную - флаг

while not eof (f1) do 
begin
readln (f1, st);
flag:=true;
i:=1;
while (i<=length(st)) and (flag) do
begin
 if (st[i] =':') OR (st[i] =',') then flag:=false;
 inc(i);
 end;
if flag then writeln(st);
end;

Так попробуй, я не тестил

[Herotic]

добавить переменную - флаг

while not eof (f1) do 
begin
readln (f1, st);
flag:=true;
i:=1;
while (i<=length(st)) and (flag) do
begin
 if (st[i] =':') OR (st[i] =',') then flag:=false;
 inc(i);
 end;
if flag then writeln(st);
end;

Так попробуй, я не тестил

Спасибо большое, все работает. Расскажи пожалуйста, что ты сделал, если тебе не составит труда. Спасибо.