201101, 2102, 100121021, 10011110, 110001
Условие проигрыша: ножницы против камня, камень против бумаги, бумага против ножниц.
Максимальное количество проигрышей Мирослава определяется максимально возможным количеством событий, когда возникали пары:
s2 ⇔ r1, r2 ⇔ p1, p2 ⇔ s1
Количество таких пар не превышает суммы следующих минимальных значений: K=min(s2,r1)+min(r1,p1)+min(p2,s1)
<u>Таблица приоритетов операций</u>
<span><span><span>1) @, not, ^, +,
- (унарные), new</span></span>
<span><span>2) *, /, div,
mod, and, shl,
shr, as, is</span>
</span><span><span>3) +, - (бинарные), or,
xor
</span></span><span><span>4) =, <>, <, >,
<=, >=, in,
=>
1) * + = or - нарушение, четвертая группа впереди третьей
2) </span></span></span><span>not div or - <u><em>верно</em></u>
3) </span><span>and + div - нарушение, вторая группа после третьей
4) </span><span>xor = * - нарушение, вторая группа после четвертой
5) </span><span><span>> * - нарушение - вторая группа после четвертой</span></span>
INPUT "a="; a 'Начало отрезка
INPUT "b="; b 'Конец отрезка
INPUT "h="; h 'Шаг
x = a
WHILE x <= b
PRINT "x="; x, "y=";
SELECT CASE x
CASE -2 TO 2
PRINT x * x - 1
CASE ELSE
IF x >= 1 THEN
PRINT SQR(x - 1)
ELSE PRINT "Не существует"
END IF
END SELECT
x = x + h
WEND
Var
n: integer;
min, max: 0..9;
begin
Write('введите натуральное число: ');
Readln(n);
{инициализация начальных значений минимума и максимума}
min := 9;
max := 0;
{разбиение числа на отдельные цифры и поиск их минимума и максимума}
while n <> 0 do
begin
if n mod 10 < min then min := n mod 10;
if n mod 10 > max then max := n mod 10;
n := n div 10
end;
{Вычисление и вывод среднего геометрического минимума и максимума}
writeln('Среднее геометрическое: ', sqrt(max * min));
end.
Собственно сначала программа ищет минимальную и максимальную цифру в числе, а потом считает среднее геометрическое или среднее пропорциональное этих двух цифр.