Вопрос по информатике:
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.
Сделать данную программу с помощью процедуры
- 09.05.2016 22:02
- Информатика
- remove_red_eye 9482
- thumb_up 42
Ответы и объяснения 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.
- 01.01.1970 00:00
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.