Question

помогите пожалуйста ​

Answer 1

Ответ:

Объяснение:

А) var sek:integer;

begin

  write('Введите число секунд: ');

  read(sek);

  write(sek div 60,' мин.', sek mod 60,' с.');

end.

B) var sek, min:integer;

begin

  write('Введите число секунд: ');

  read(sek);

  min:=sek div 60;

  if min<59 then

   write(sek div 60,' мин.', sek mod 60,' с.') else

   write(min div 60,' ч. ',min mod 60,' мин. ', sek mod 360,' с.')

end.