Ответ:
program n1;
var time, seconds, minutes, hours: integear;
begin
readln(time);
seconds := time mod 60;
time := (time - seconds) / 60;
minutes := time mod 60;
time := (time - minutes) / 60;
hours := time;
writeln (hours, ' часов ', minutes, ' минут ', seconds, ' секунд');
end.
Объяснение:
Написано на языке Pascal
Нц пока снизу свободно
вниз
кц
нц пока снизу не свободно
вправо
кц
вниз
вниз
влево
нц пока сверху не свободно
сажать цветы
влево
кц
// PascalABC.NET 3.3
begin
var a:=ArrRandom(35,2,42); a.Println;
Writeln('П=',a.Where(x->(x>=4)and(x<=10)).Aggregate(1,(p,x)->p*x));
end.
Пример:
34 16 9 17 4 11 34 26 30 17 28 18 6 31 38 20 30 35 29 40 21 38 30 10 5 9 15 12 28 5 23 6 30 30 37
П=2916000
Так как у нас есть конечний результат, операции делаем с конца:
3) 01y2pphaaryeew8n = n8weeyraahpp2y10
2)n8weeyraahpp2y10 =8newyearhappy201
1)8newyearhappy201 = happy2018newyear
Var i, byear, eyear, k : integer;
Begin
read(byear, eyear);
byear := byear + 1;
for i := byear to eyear do
if (i >= 1605) and ((i - 1605) mod 10 = 0) then k:= k +1;
writeln(k);
End.