Var
t, h, mm, ss: integer;
ct, ch, cmm, css: string;
begin
Write('Введите время в секундах от начала суток -> ');Readln(t);
h := t div 3600;
t := t mod 3600;
mm := t div 60;
ss := t mod 60;
Str(h, ch);
ct := ch + ':';
Str(mm, cmm);
if Length(cmm) = 1 then ct := ct + '0' + cmm + ':' else ct := ct + cmm + ':';
Str(ss, css);
if Length(css) = 1 then ct := ct + '0' + css else ct := ct + css;
Writeln('Указано время ', ct)
end.
<em><u>Тестовое решение:</u></em>
Введите время в секундах от начала суток -> 27429
Указано время 7:37:09
PascalABC:
varsum ,i :longint;beginfor i:=20 to 55 dosum:=sum+i*i;writeln(sum);end.
1. Включить компьютер.
2. Подключить клавиатуру.
3. Войти в Word.
4. Сесть прямо и удобно.
5. Начать печатать.
Я могу помочь
vk com/egor_qb