Гипертекст - это информация в виде документов, имеющих ссылки на другие документы.
Var s: string;
begin
read(s);
if (pos('<<,_>>', s) = 0) then
writeln('<<,_>> не встречается в заданной строке')
else
writeln('<<,_>> встречается в заданной строке');
end.
чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить
<span>readln(input,s);s:=s+' ';f:=0;</span>
<span>for i:= 1 to length(s) do begin</span>
<span>if s[i]<>' ' then r:=r+s[i];</span>
<span>if s[i]=' ' then begin k:=k+1;d[k]:=r;r:='';end;</span>
<span>end;</span>
<span>readln(input,n);</span>
<span>for i:= 1 to n do begin</span>
<span>readln(input,sait[i]);</span>
<span>readln(input,tegs[i]);</span>
<span>readln(input,pop[i]);</span>
соответственно и запись в файл write(f,s)
3план анимации 4 подготовка онимации в действ
Да, поместятся.
2 ГБ - 2000 мб.
151*3=453 мб.
Поместится :)