smirnvlad
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ввод текста, скорее всего, будет в DOS-кодировке, так что файл надо сохранить тоже в DOS-кодировке. в wordpad есть такая возможность
Код:
var
a: array[1..4] of string;
n,ni,i: integer;
f: boolean;
begin
readln(a[1]);
readln(a[2]);
readln(a[3]);
readln(a[4]);
f:=false;
for i:= 1 to 4 do
begin
if a[i]='ДСФ' then
begin
f:=true;
break;
end;
end;
if f then
Writeln('ДСФ есть в списке')
else
Writeln('ДСФ в списке нет');
end.
|
|
