Если поверить, что Сергей был первым, значит:
1) Сергей первый - верно, Роман второй - ложь
2) Сергей второй - ложь, Виктор третий - правда
3) Леонид второй - верно, Виктор четвертый - ложь
Отсюда следует:
1.Сергей
2.Леонид
3. Виктор
4. Роман
Если поверить, что Роман - второй, то получается, что Леонид и Роман заняли второе место, а это не верно
Пусть дана матрица А размером n x n.
Обнуляем переменную s, в которой будет накапливаться сумма элементов главной диагонали и переменную k, в которой будет накапливаться количество отобранных элементов.
В цикле для i от 1 до n повторяем следующее действие:
- если значение А[i,i]>0, то добавляем его в s и увеличиваем k на единицу.
Когда цикл завершится, найдем среднее арифметическое как s/k.
Procedure swap(var a, b: real);
var t: real;
begin
t := a;
a := b;
b := t;
end;
var a, b, c: real;
begin
readln(a, b, c);
if (a > b) then swap(a, b);
if (b > c) then swap(b, c);
if (a > b) then swap(a, b);
writeln(a, ' ', b, ' ', c);
<span>end.
===========================
Без процедур:
var a, b, c, t: integer;
begin
readln(a, b, c);
if (a > b) then
begin
t := a;
a := b;
b := t;
end;
if (b > c) then
begin
t := b;
b := c;
c := t;
end;
if (a > b) then
begin
t := a;
a := b;
b := t;
end;
writeln(a, ' ', b, ' ', c);
<span>end.</span></span>
Ответ:
n = int(input())
while n % 8 != n:
n //= 8
print(n)
Хоть и 8 балов это маловато за задачу на знание языка программирования, но этот код работает.