Question

помогите пж. это если что Паскаль ​

Answer 1

A.

program kapec_blin;

var seconds, minutes: Integer;

begin

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

   readln(seconds);

   minutes := seconds div 60;

   seconds := seconds - minutes*60;

   if (minutes > 0) then write(minutes, 'мин. ');

   if (seconds > 0) then write(seconds, 'сек. ');

end.

B.

program the_second_kapec_blin;

var seconds, minutes, hours: Integer;

begin

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

   readln(seconds);

   hours := seconds div 3600;

   minutes := (seconds mod 3600) div 60;

   seconds := seconds - hours*3600 - minutes*60;

   if (hours > 0) then write(hours, 'ч. ');

   if (minutes > 0) then write(minutes, 'мин. ');

   if (seconds > 0) then write(seconds, 'сек. ');

end.