Такой ответ на этот вопрос
BD6,4B(16)
<span>var
s : string[50];
i, j, k : word;
f : boolean;
function isSpace(ch : char) : boolean;
begin
isSpace := false;
if ch = ' ' then isSpace := true;
end;
begin
f := false;
repeat
j := 0;
writeln('введите строку, состоящую из 2 слов');
readln(s);
for i := 1 to length(s) do
if isSpace(s[i]) then
begin
inc(j);
k := i;
end;
if j =1 then f := true;
until f;
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1));
<span>end.
недавно такую писала :)</span></span>
var x: real;
function f(x: real): real;
begin
if x < 0 then f:= ln(x)/(1 - x)
else if (0 <= x) and (x < pi) then f:= 10
else if (pi <= x) then f:= cos(6 * x);
end;
begin
readln(x);
writeln(f(x));
end.
Чем больше "И" (&), тем меньше результат.
Чем больше "ИЛИ" (|), тем больше результат.
Ответ: ВБГА.