Program zadacha;
var s:string;
begin
writeln ('Введите слово "курсор"');
readln (s);
delete(s,1,4);
insert('танц',s,1);
writeln(s);
end.
Следует отметить, что 1 условие выполняется во всех цепочках, а значит его можно не рассматривать.
Рассмотрим каждую комбинацию отдельно:
HDEE
2 условие - true
3 условие - true
4 условие - true
Подходит
<span>HHAE
</span>2 условие - true
3 условие - false(H на 2 месте)
<span>HEAE
</span>2 условие - true
3 условие - true
4 условие - true
Подходит
<span>AHAH
</span>2 условие - true
3 условие - true
4 условие - true
Подходит
<span>AEAD
</span>2 условие - true
3 условие - true
4 условие - true
Подходит
<span>AEED
</span>2 условие - false(E на 3 месте)
<span>CAEH
</span>2 условие - false(A не входит в список допустимых значений)
<span>EHAD
</span>2 условие - true
3 условие - false(E <span>не входит в список допустимых значений)
</span><span>CDEA
</span>2 условие - true
3 условие - true
4 условие - false(A <span>не входит в список допустимых значений)
Ответ: 4</span>
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
N, сч, сумма: ЦЕЛ;
УКАЗ
Вывод.Цепь("Введите N: ");
N := Приём.Число();
СОЗДАТЬ(массив, N);
Вывод.Цепь(".^Введите элементы массива:^");
сумма := 0;
ОТ сч := 0 ДО N - 1 ВЫП
массив[сч] := Приём.Число();
Вывод.Цепь(" ");
ЕСЛИ массив[сч] > сч ТО
УВЕЛИЧИТЬ(сумма, массив[сч])
КОН
КОН;
Вывод.ЧЦел("^Сумма особых элементов: %d.", сумма, 0, 0, 0)
КОН Задание.
<span>var n,a,b,c:integer;
begin
readln(n);
if n=1 then write('true')
else
begin
a:=1;
b:=1;
c:=0;
while c<n do
begin
c:=a+b;
a:=b;
b:=c;
end;
end;
if c=n then write('true')
else write('false');
end.</span>
Ответ:
Я бы посоветовал(ала) свои друзьям сайт YouTube там можно посмотреть всякие развлекательные видео ролики,WhatsApp-Viber там можно общаться со своими друзьями,Play Маркет-можно установлять всякие различные игры на телефон-планшет,