Defrag.exe format.com regedit.com fdisk.exe я токо столько знаю .
Следует отметить, что 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>
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x.IsEven).Count());
end.
Program vtor_bukva;
var
S: String;
begin
Writeln('введите исходное предложение: ');
Readln(s);
delete(s, pos(' ', s), 1);
write('Последняя буква второго слова=');
if pos(' ', s) <> 0 then write(s[pos(' ', s) - 1])
else write(s[length(s)]);
readln(s);
end.
Твоя программа выводит символ, стоящий перед ПЕРВЫМ пробелом. А нужно, чтобы выводила символ, стоящий перед вторым пробелом. Не стоит забывать, что второго пробела может и не быть. Так что, я удаляю первый пробел. А потом делаю проверку: есть ли ещё пробелы (if pos(' ', s) <> 0)? Если пробелы есть, то программа выводит букву, следующую перед вторым пробелом (или последнюю букву второго слова). Если пробелов нет (всего два слова в предложении было введено), то программа выводит последнюю букву (s[length(s)]). Если что-то не понятно, в лс.
Var a,b,k:integer;
begin
readln(a,b);
k:=0;
while a*b<>0 do begin
if a>b then a:=a-b else b:=b-a;
k:=k+1;
end;
writeln(k);
end.
Пример:
4200 9126
22