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
1. Истина(true)
2. Истина(true)
3. Ложь(false)
4. Ложь(false)
5. Ложь(false)
6. Истина(true)
7. Истина(true)
8. Истина(true)
//Pascal ABC.NET 3.1 сборка 1256
Const
n=10;
Var
ar:array[1..n] of integer;
i,k,min:integer;
begin
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
begin
readln(ar[i]);
if ar[i]<min then min:=ar[i];
end;
for i:=1 to n do
if ar[i]-5=min then inc(k);
writeln(k);
end.
Мощность алфавита N=512
Вес одного символа b = 9, (2^9=512)
9*22=198