Var s,s1:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
s1:=s+' ';
while s1<>'' do
begin
p:=pos(' ',s1);
if (p>1)and(s1[p-1]='я') then writeln(copy(s1,1,p-1));
delete(s1,1,p);
end;
<span>end.</span>
Боря из Омска
Витя из Москвы
Гриша из Санкт-Петербурга
Егор из Кирова
Думаю так
1.
Нам нужно, чтобы высказывание давало ложь. Поступим проще. Уберём НЕ перед выражением, то выражение будет давать истину:
<span>(Первая буква согласная) И (Последняя буква гласная)
</span>Первая буква согласная и последняя буква гласная только у имени Дарья.
2. Пошагово
a:=1
<span>b:=4 </span>
<span>a:=2*a+3*b = 2*1+3*4 = 14</span>
<span>b:=a/2*b = 14/2*4 = 28
</span>
Ответ 28
Попробуй поставить 3 галочки (там где Обеспечение целостности)