Правильно или нет не знаю
в первом случае 5, во втором 8.
Ответ:
x=7 y=0
Объяснение:
1) x= 13
2) y= 7
3) t= 7
4) y= остаток от деления 13 на 7
13 можно разделить на 7 только 1 раз
13-(7*1)=6
y= 6
5) x= 7
6) y= (Деление 6 на 7 без остатка) * 7
6 можно разделить на 7 ноль раз, то есть значение 0
0*7=0
y= 0
Вывод: x=7; y=0
Var K, M, H: longint;
Begin
WriteLn('Введите номер секунды');
ReadLn(K);
H:=K div 3600;
M:=(K-H*3600) div 60;
K:=K-H*3600-M*60;
WriteLn('Прошло часов: ', H, '; минут: ', M, '; секунд: ', K);
Sleep(5000);
End.