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>
2) Тело цикла выполнится три раза:
при i := 2, в результате чего S := 2*2 := 4;
при i := 3, в результате чего S := 4*4 := 16;
при i := 4, в результате чего S := 16*16 := 256.
Ответ: 256.
var
<span> a, h: </span><em>real</em>;
begin
readln(a, h);
writeln('S = ', 0.5 * a * h);
<span>end.
-----------------------------------
var
a, b, m: <em>real</em>;
begin
readln(a, b);
m := (a > 3 ? a + b : a - b);
writeln('m = ', m);
<span>end.
P.S. Учиться надо, а не тройки на сайтах выпрашивать...</span></span>
9-1=8 2
8*2=16 1
16-1=15 2
15*2=30 1
30-1= 29 2
Ответ 21212