Автор работы: Пользователь скрыл имя, 22 Июня 2014 в 10:09, контрольная работа
Идет k-я секунда суток. Определить, сколько полных часов (h) и полных минут (m) прошло к этому моменту.
Код Delphi
var
h, m, s: integer;
begin
write ('Type seconds: ');
readln (s);
h:= s div 3600;
m:= (s - h*3600) div 60;
writeln ('Was ',h,' hours ',m,' minutes');
readln;
Простые программы
Работа с однородными статическими массивами: поиск, замена, сортировка
Работа со строками