(x1+x2)/2
Можешь не благодарить.
Если 2711 бит передается за 1 секунду, то за 38 секунд будет 38*2711=103018 бит
1. Хвойные / Лиственные.
2. Сорри, но я не знаю пока что.
3. Дикие / Домашные
var
count, min, max: integer;
str: string;
begin
min := 191;
max := 149;
readln(str);
while (str <> '!') do
begin
if (str.ToInteger in [150..190]) then
begin
if (str.ToInteger > max) then max := str.ToInteger
else if (str.ToInteger < min) then min := str.ToInteger;
count := count + 1;
end;
readln(str);
end;
writeln(count);
write(min, ' ', max);
end.
var
n, d, min: integer;
begin
read(n);
n := abs(n); // Если введено отрицательное
min := 10;
while n > 0 do
begin
d := n mod 10;
n := n div 10;
if d < min then
min := d;
end;
write(min);
end.