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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

f.open("output.txt",ios::out);
i=1; flag=0;
do {
temp=z[i];
j=i;
while (temp==z[j]) { j++; if (j==10000) { flag=1; break; }}
if (flag) {
for (i=10000;;i--) if (z[i]!=0) break;
f<<++i<<' '<<0;}
else f<<i<<' '<<z[j-1]<<' ';
i=j;
} while (!flag);
f.close();
}
3. Решение задачи «Автобусы» (первый тур, задача, общая
для всех номинаций), предложенное студентом 2 курса
факультета ПММ Скрипченковым Денисом
{ Скрипченков Денис Александрович.
ВГУ . Факультет ПММ. 2 курс. 5 группа.}
Program stop_avto;
type mas=array[1..3000]of shortint;
var
inp,outp:text;
k:mas;
n,e,i,d:integer;
a,b:array[1..300]of shortint;
{Процедура перевода данных из файла в массив}
Procedure priem(var f:text);
var
s,si:string;
ni,ier,l,i,j:integer;
begin
readln(f,s);
val(s,n,ier);

Страницы