решать. Артём, Бахром и Саид – единственные три работника на фабрике. Они ходят на работу по правилам: каждый Понедельник ровно 2 работника должны пойти на работу. В любой день: • Правило 1: если Артём идёт на работу сегодня, то Бахром завтра дома.

• Правило 2: если Бахром идёт на работу сегодня, то Саид тоже идёт на работу сегодня, но завтра Саид дома.

• Правило 3: если сегодня Саид дома, то завтра Артём будет дома.

В таблицах ниже директор написал количество работников, вышедших на фабрику в каждый день на одной неделе. Только одно из этих расписаний по правилам. Какое из них?

1. понедельник 2, вторник 3, среда 1, четверг 1, пятница 2

2. понедельник 2, вторник 1, среда 3, четверг 2, пятница 1

3. понедельник 2, вторник 1, среда 3, четверг 1, пятница 0

4. понедельник 2, вторник 1, среда 0, четверг 3, пятница 2

# Python 3.X

'''
Длина Московской кольцевой автомобильной
дороги - 109 километров. Байкер Вася
стартует с нулевого километра МКАД
и едет со скоростью v километров в час.
На какой отметке он остановится
через t часов?

Программа получает на вход
значение v и t. Если v>0, то Вася
движется в положительном направлении
по МКАД, если же значение v<0, то
в отрицательном.

Программа должна вывести целое число
от 0 до 108 — номер отметки, на которой
остановится Вася.
'''

l = 109

v, t = [int(input(x)) for x in ('Скорость (км/с): ', 'Время (час): ')]
pos = v * t % l

print(pos)

Const
K = 13;
Var
A:array[1..K] of integer;
i,n,X:integer;

Begin
Write('X = ');ReadLn(X);
Write('Исходный массив: ');
For i:= 1 to K do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;

n:=0;
For i:= 1 to K do
    if A[i]=X then n:=n+1;
WriteLn;
WriteLn(n,' - кол-во элементов, равных ',X);
End.

Const
K = 13;
Var
A:array[1..K] of integer;
i:integer;
P:real;

Begin
P:=1;
Write('Исходный массив: ');
For i:= 1 to K do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    if A[i] mod 3 = 0 then P:=P*A[i]
    End;
WriteLn;
WriteLn('Произведение элементов,кратных трём: ',P)
End.

Const
K = 13;
Var
A:array[1..K] of integer;
i,X:integer;
Begin
Write('X = ');ReadLn(X);
Write('А: ');
For i:= 1 to K do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;
WriteLn;
i:=0;
Repeat
i:=i+1;
Until (A[i]=X)or(i=K);
if A[i]=X then WriteLn(i)
else WriteLn('Таких элементов нет')
End.