<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>
Таблица истинности приведена во втором вложении.
На месте первой буквы может стоять только 4 буквы, на второй тоже 4(М может быть только на 5м)
на 3,4,6,7х местах по 3(т.к. "М" на 5м, а "Х" на 1м или 2м), на 5м месте тоже 4.
4*4*3*3*4*3*3 = 5184
<span>var a,s,mn:real;
n,i:integer;
begin
clrscr;
repeat
write('Сколько чисел ввести n>0 n=');
readln(n);
until n>0;
writeln('Введите ',n,' чисел:');
s:=0;
for i:=1 to n do
begin
write('a=');
readln(a);
if i=1 then mn:=a
else if odd(i)and(a<mn) then mn:=a;
if(i mod 2=0)and(a>0) then s:=s+a;
end;
writeln('Сумма положительных с четными индексами=',s:0:2);
writeln('Минимальный с нечетным индексом=',mn:0:2);
readln
end.</span>