Олимпиадные задачи по программированию. Ч. 4. Лучшие решения. Ускова О.Ф - 56 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

readln(f,s);
l:=length(s);
j:=0;
for i:=1 to l-1 do
if (s[i]>='0')and(s[i]<='9') then
if (s[i+1]>='0')and(s[i+1]<='9') then
begin
si:=copy(s,i,2);
val(si,ni,ier);
j:=j+1;
k[j]:=ni
end
else if ((s[i-1]<'0')or(s[i-1]>'9'))or(i=1) then
begin
si:=copy(s,i,1);
val(si,ni,ier);
j:=j+1;
k[j]:=ni
end;
end;{priem}
{Создание массивов для файла 'output.txt'}
Procedure osnovnaya;
var
i,i1,j,y,p,s,z:integer;
t1,f:boolean;
begin
e:=0;
for i:=1 to n-1 do
if k[i]<30 then
begin
f:=true;
t1:=false;
j:=i+1;
p:=k[i];
y:=k[j];
while f and (not t1) do
begin
t1:=true;
repeat
s:=0;
for i1:=j to n do

Страницы