Решение во вложении.
Ответ: 20
Здесь надо посчитать в процентах но вот есть сомнения а или б если я угадаю одну из шапок там будут все синие то есть 50%
а там вероятность того что выпадет меньше
Правильный вариант Б)
Var s,tmp:string;
i,n:integer;
flag,word:boolean;
function letter (const let:char):boolean;
begin
if ((let>='a') and (let<='z')) or ((let>='A') and (let<='Z')) then letter:=true
else letter:=false;
end;
begin
readln (s);
s:=s+' ';
n:=length(s);
flag:=false;
for i:=1 to n do
begin
if (letter(s[i])) and (not flag) then
begin
flag:=true;
tmp:='';
word:=false;
end else if (not letter(s[i])) and (flag) then
begin
flag:=false;
if (word) and (not (tmp='')) then writeln (tmp);
end;
if (flag) then
begin
tmp:=tmp+s[i];
if (s[i]='k') then word:=true;
end;
end;
end.
Жизь без интернета - для нас не жизнь. Без него мы чувствуем себя ограниченными от общества. Мы не находим нужный материал.Не можем заказать что то для себя и своей семьи. Вывод: мы можем пользоваться интернетом , но не долгое время!
<span />
Ответ:
program Change;
var
n, i, j, t: Integer;
A: array of Integer;
begin
Write ('Введите четное число N: ');
ReadLn (n);
if n mod 2 = 0 then begin
SetLength (A, n);
Randomize;
for i := Low (A) to High (A) do begin
A [i] := Random (100);
Write (A [i] :3, ' ');
end;
i := 0;
while i < n do begin
t := A [i];
A [i] := A [i + 1];
A [i + 1] := t;
i := i + 2;
end;
WriteLn;
for i := Low (A) to High (A) do begin
Write (A [i] :3, ' ');
end;
end else
WriteLn ('Введено не четное число.');
ReadLn;
end.