18/3=6(эскимо)
6-5=1(эскимо)
18-3=15(стаканчиков)
P/s в лучшие ответы)
...
while x<>1 do
begin
x:=x div 2;
inc (t);
end;
write (t);
...
P.S. твое врем я это степень двойки, а именно
![2^{t} = x](https://tex.z-dn.net/?f=+2%5E%7Bt%7D+%3D+x)
Const z = 50;
var A:Array[1..z,1..z] of integer;
n,i,j:integer;
begin
write('Введите размер массива ');
readln(n);
for i:=1 to n do
beginfor j:=1 to n do
begin
A[i,j]:= random(100)-50;
write(A[i,j]:4);
end;
writeln;
end;
writeln;writeln;
for i:=1 to n do
beginfor j:=1 to n do
begin
if i=j then
A[i,j]:=0;
write(A[i,j]:4);
end;
writeln;
end;end.<span>
</span>
B = int(input("b = "))
for a in range(b+1, 501, 2):
x = a*a-b*b
y = 2*a*b
z = a*a+b*b
print('(%d; %d; %d); (a=%d; b=%d); (%.4f; %.4f)' % (x,y,z,a,b,x/z,y/z))
Пример:
<span>b = 10
(21; 220; 221); (a=11; b=10); (0.0950; 0.9955)
(69; 260; 269); (a=13; b=10); (0.2565; 0.9665)
(125; 300; 325); (a=15; b=10); (0.3846; 0.9231)
...
</span><span>(246909; 9940; 247109); (a=497; b=10); (0.9992; 0.0402)
(248901; 9980; 249101); (a=499; b=10); (0.9992; 0.0401)</span>
Лист защищен без пароля, чтобы случайно не повредить формулы.
формулы можно увидеть в строке формул.