Question

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.

Нужна блок схема и проверк!!

Answer 1

Ответ:

Блок-схема ниже ^_^