n,m=map(int,input('часы, минуты через пробел: ').split(' '))
n=n%12; cnt=0;
while True:
m+=1; n+=m//60;
m%=60; cnt+=1;
k=n*5+m//12;
if (m%12>5): k+=1;
if (abs(k-m)==15) or (60-k+m==15): break
print(cnt)
>>>
часы, минуты через пробел: 23 50
26
>>>
часы, минуты через пробел: 20 53
7
>>>
часы, минуты через пробел: 4 5
1
Program zadanie;
var y,x:real;
begin
writeln('Введите значение x');
readln(x);
y:=((cos(x)*sin(x))/(x*x*x)*sqrt(x);
writeln('y=',y);
end.
Листинг программы и скиншот работы в приложениях.
Написано на PascalABC.NET но должно работать во всех Паскалях.