Ответ: "о"
программирование
п о р м и о а и
иаоимроп
и о м о
омои
о о
оо
о
Function StRevers(St : String) : String;
Begin
If Length(St)>1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1]
else StRevers:=St;
end;
Function Del2(st : String) : String;
Begin
If Length(st)>0 then Del2:=st[1]+Del2(Copy(st,3,Length(st)-2)) else Del2:='';
end;
Var
S : String;
Begin
S:='программирование';
While Length(S)>1 do S:=StRevers(Del2(S));
Writeln(S);
end.
Информация-Это сведения о окружающем нас мире
Левой рисуют, а если нажать на правую можно выбрать функции (вроде так).
Ориентируясь на то, что написано на картинке, уточняю задачу за тебя:
Даны запросы и количество страниц по ним:
Футбол | Хоккей = 20000 страниц
Футбол = 14000 страниц
Хоккей = 16000 страниц
И надо найти, сколько страниц будет по запросу Футбол & Хоккей.
Найдем сколько страниц содержат ТОЛЬКО хоккей, без футбола: ~Ф&X = Ф|X - Ф = 20000 - 14000 = 6000
ТОЛЬКО футбол, без хоккея: Ф&~Х = Ф|Х - Х = 20000 - 16000 = 4000
И чтобы найти все страницы, которые содержат И футбол, И хоккей:
Ф&Х = Ф|Х - Ф&~X - ~Ф&Х = 20000 - 6000 - 4000 = 10000
Ответ: 10000
Var
a,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a=0;
writeln('Сумма чисел: ',s);
<span>end</span>
