Question

Var sumsec: integer; var hour,min,sec: integer; l: integer; begin writeln ('введите суммарное кол-во секунд'); readln (sumsec); l: =sumsec div 60; sec: =sumsec mod 60; hour: =l div 60; min: =l mod 60; writeln (sumsec, ' секунд - это'); writeln ( hour , 'час(а/ов) ', min , ' минут ' , sec , ' секунд '); end. сделать данную программу с процедуры

Answer 1

Var sumsec, hour, min, sec:integer;
procedure p(sumsec:integer; var hour,min,sec:integer);
var l:integer;
begin
l:=sumsec div 60;
sec:=sumsec mod 60;
hour:=l div 60;
min:=l mod 60;
end;
begin
writeln ('Введите суммарное кол-во секунд');
readln (sumsec);
p(sumsec,hour,min,sec);
writeln (sumsec, ' секунд - это');
writeln ( hour , ' час(а/ов) ', min , ' минут ' , sec , ' секунд ');
end.