...
while x<>1 do
begin
x:=x div 2;
inc (t);
end;
write (t);
...
P.S. твое врем я это степень двойки, а именно
3 бита информации это 2^3 вариантов,
2 бита это 2^2 вариантов,
значит игроков в команде от 5 до 8
1-д) var a,b:longint;
c:real;
c:=Sqrt(100)*a+16/5*b;
write (c);
end.
3-а) var b,c:longint;
c:=Sqrt(1)+2*1*b+Sqrt(b);
write (c);
end.
3-б) var a,c:longint;
c:=Abs (1+Sqrt(a));
write (c);
end.
<span>для нахождения среднего арифметического необходимо сложить эти числа и разделить сумму на количество этих чисел
(2268+6416+628)/3=3104</span>
Сам пременные объявишь
begin
read(max);
read(min);
while(n <> 0) do // пока не равну нолю делать то то. ноль - знак окончание ввода чисел
if max < min then min := max;
writeln(max);
end.