Так как написана программа, в лучшем случае будет найдено только одно слово, должны быть вложенные циклы.
Решение (немного исправленное) в прикрепленном файле.
Ввод - вывод программы:
vvedite text:
<span>it's a text for check programm abcdefgh hgfe pqrstu srqp.
</span>word = for
<span>word = abcdefgh
</span><span>word = hgfe
</span><span>word = pqrstu
</span><span>word = srqp
</span><span>
</span>
Program example;var m :integer;begin m:=0; writeln('Номер месяца'); read(m); case m of 1:writeln ('Февраль'); 2:writeln ('Март'); 3:writeln ('Апрель'); 4:writeln ('Май'); 5:writeln ('Июнь'); 6:writeln ('Июль'); 7:writeln ('Август'); 8:writeln ('Сентябрь'); 9:writeln ('Октябрь'); 10:writeln ('Ноябрь'); 11:writeln ('Декабрь'); 12:writeln ('Январь'); else writeln ('Это число не является цифрой'); end;end.
1.
<span>G23 относительная</span>
<span>$F$10
абсолютная</span>
<span>H$4
смешанная</span>
2.
=D3-C3
3.
в)
=$А$6+$7$С
4.
Смотрите №1
5.
=$A$5*B8
<span>
</span>
данное в условии число является шестнадцатеричным. Переведем его в десятичную систему счисления, записав в стандартном виде
E*16^3+4*16^2+1*16^1+A*16^0+1*16^-1+2*16^-2
Вместо буквы Е подставим число 14, а вместо буквы А подставим число 10, перемножим и получим ответ 58394,0703125
У меня получилось 8 команд:
1) повернись вправо на 90 градусов;
2) пройди вперед на 2 клетки;
3) повернись влево на 90 градусов;
4) пройди вперед на 3 клетки;
5) повернись влево на 90 градусов;
6) пройди вперед на 2 клетки;
7) повернись влево (вправо) на 180 градусов;
8) пройди вперед на 5 клеток.
Если Ентик может двигаться назад, то команды под номером 7 и 8 можно заменить на "7) пройди назад на 5 клеток", тогда будет 7 команд.
Удачи…
