Если я правильно поняла задание, то вот
использовать Робот
алг
нач
вправо
нц 6 раз
закрасить
вниз
кц
вправо
нц 6 раз
закрасить
вверх
кц
вправо
вниз
вниз
нц 6 раз
закрасить
вниз
кц
вправо
нц 6 раз
закрасить
вверх
кц
нц 6 раз
вниз
кц
вправо
<span>
кон</span>
Не советую. У меня 13 основная. Это норм. Фронтальная 5.
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('Слов: ',ReadlnString('Строка:').ToWords.Count)
end.
<u>Пример</u>
Строка: А роза упала на лапу Азора.
Слов: 6
Шанс достать зеленый кубик равен 4/ 16 = 1 / 4.
Переворачиваем эту дробь, получаем 4. Теперь надо найти такую степень двойки, чтобы получить 4. Это 2. И это ответ: 2 бита.
Var tfh,h,m,c:integer;
begin
read(tfh);
h:=tfh*24;
m:=h*60;
c:=m*60;
writeln(h,' часов, ',m,' минут, ',c,' секунд');
end.