Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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.
Сделать данную программу с помощью процедуры

Ответ оставил Гость

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.