Пассажирский транспорт название таблицы которая справа от рисунка
Метро
Состав: Вагоны Двери
Речной трамвай
Состав: Палуба Нос Трап Корма
Действие: Плыть Причаливать
Самолет
Действие: Взлетать Лететь Приземляться
Var
x, y, z, n: Integer;
begin
ReadLn(n);
z := n mod 10;
y := (n div 10) mod 10;
x := n div 100;
WriteLn('Первое: ', x);
WriteLn('Второе: ', y);
WriteLn('Третье: ', z);
end.
N = число в десятичной системе
res = пустая строка
WHILE n не равно 0:
res = привести в строку(остаток от деления n на 2)+res
n = n/2 (нужно делить без остатка Например: (3/2)= 1)
ЗАКОНЧИТЬ WHILE
вывести res
Хз
Незнаю как. ссори может на сайте каком то