Добрый Вечер!!!
подскажите Пожалуйста алгоритм, который будет решать задачу и укладыватся в указанное время: http://acm.timus.ru/problem.aspx?space=1&num=1804
Код напишу сам, подскажите Пожалуйста алгоритм
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var
i: Integer;
ch: Char;
Home: Boolean;
scored, conceded, goal1, goal2, t, j: Integer;
s: String;
begin
Read(t);
for j := 1 to t do
Begin
for i := 1 to 27 do Read(ch);
if ch = 'h' then Home := True;
for i := 1 to 17 do Read(ch);
read(scored);
for i := 1 to 21 do Read(ch);
read(conceded);
Readln;
if Home then
Begin
if scored > conceded then
Begin
goal1 := 0;
goal2 := conceded + 30 - scored;
End
else //goal > Accept
Begin
goal1 := conceded - scored + 1;
goal2 := conceded + 29 - scored;
End
End
else //if not home
Begin
if scored > conceded then
Begin
goal1 := 0;
goal2 := conceded + 29 - scored;
End
else //goal > Accept
Begin
goal1 := conceded - scored;
goal2 := conceded + 30 - scored;
End;
End;
Write(IntToStr(goal1) + ' ' + IntToStr(goal2));
End;
end.