Использовать Робот
алг
нач
нц пока сверху стена
если снизу свободно то закрасить все
вправо
кц
влево
нц пока сверху стена
влево
кц
вправо
<span>кон
использовать Робот
алг
нач
нц пока снизу стена
если сверху свободно то
закрасить
вверх
закрасить
вниз
все
вправо
кц
влево
нц пока снизу стена
влево
кц
вправо
кон<span>
</span></span>
Алфавит два символа.
Всего трехсимвольных слов 2³ = 8.
Причем тут буква Б??? ведь она не входит в алфавит.
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (рост,вес):=ReadReal2('Введите рост в см и вес в кг:');
Writeln('Ваш ИМТ равен ',вес/Sqr(рост/100):0:1)
end.
<u>Пример</u>
Введите рост в см и вес в кг: 170 60
Ваш ИМТ равен 20.8
Суть программы - вводите число, оно выводит это число, если оно делится на 5 и 7, иначе ничего не выводит.