1) Python:
nn = int(input())
k = 1 + (nn-1) // 3 * 2 + (nn-1) % 3
print (k)
2) Pascal:
var nn,k : longint;
begin
read (nn);
k:=1+(nn-1) div 3 * 2+(nn-1) mod 3;
write (k);
end.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(12,0,40); a.Println;
a.Where(t->t.IsEven).Println
end.
<u>Пример</u>
19 22 12 20 39 31 23 9 32 7 2 10
22 12 20 32 2 10
Например:человек смотрит телевизор:источник(телевизор)а человек(приемник
Дрессировщик в цирке дает команду тигру:источник(дрессировщик) приемник(тигр)
4 задание вроде как 1100 но это не точно