Var

t, col: integer;

begin

read(col);

if col>145 then

writeln('NO')

else

if col<=2 then

writeln('0 0')

else

begin

if (col mod 2) =1 then

t:=480+((col-1) div 2) *10

else

t:=485+((col-1) div 2) *10;

writeln(t div 60 -8,' ', t mod 60);

end;

end.
Нужна проверка

Anna9411    2   23.03.2020 01:04    2