|
«Хоккей» – 100 баллов. Финал чемпионата проводился по новой системе: две команды, вышедшие в него должны сыграть между собой n матчей (n £ 16). За победу в каждом матче команда получает 2 очка, за ничью – 1 очко, за поражение – не получает. При равенстве очков в n матчах победитель определяется по лучшей разности забитых и пропущенных шайб, а если эта разность у обеих команд равна нулю, то обе команды считаются победителями.
Входные данные
Входной файл task1.in содержит в первой строке число матчей n, а в каждой из последующих n строк находится по два целых числа a и b – итоговый счет в соответствующем матче. а – количество шайб, забитых первой командой, b – количество шайб, забитых второй командой. (0 ≤ a,b ≤ 100).
Выходные данные
Выходной файл task1.out должен содержать номер выигравшей команды, в случае равенства очков и шайб следует вывести 0.
|
program Hokkey;
var a,b,w,y,k,i,z,x:integer;
begin
writeln("количество игр>>>');
readln(k);
for i:=1 to k do
begin
writeln("введите счет>>>');
read(a,b);
w:=w+a;
y:=y+b;
if a=b then begin z:=z+1; x:=x+1; end
else if a>b then z:=z+2 else x:=x+2;
end;
if z=x then if w=y then writeln ('0') else if w>y then writeln ('1')
else writeln ('2') else if z>x then writeln('1') else writeln('2');
end.
|
|
«Эксперимент » – 100 баллов.В лаборатории проводятся эксперименты. В журнале учета фиксируется время начала эксперимента и его окончания. Необходимо по этим показателям определить его продолжительность. Эксперимент длится менее суток
Входные данные
В первой строке входного файла task2.in записано время начала эксперимента в формате ЧЧ:ММ:СС (с ведущими нулями), а во второй строке время его окончания в том же формате.
Выходные данные
В выходной файл task2.out следует вывести продолжительность эксперимента в том же формате.
|
program exp;
var a,b: string; s1,s2,m1,m2,h1,h2,r,z,w: real;
begin
writeln('nachalo');
read(a);
writeln('konec');
readln(b);
s1:=StrToInt(a[7])*10 + StrToInt(a[8]);
s2:=StrToInt(b[7])*10 + StrToInt(b[8]);
m1:=StrToInt(a[4])*10 + StrToInt(a[5]);
m2:= StrToInt(b[4])*10 + StrToInt(b[5]);
h1:= StrToInt(a[1])*10 + StrToInt(a[2]);
h2:= StrToInt(b[1])*10 + StrToInt(b[2]);
if s1>s2 then begin r:=s2+60-s1;
m2:=m2-1;
end else r:=s2-s1;
if m1>m2 then begin z:=m2+60-m1;
h2:=h2-1;
end else z:=m2-m1;
if h1>h2 then w:=h2+24-h1
else w:=h2-h1;
writeln ('prodolzhit ',w,':',z,':',r);
end. |
