3 221 225 472 - 3 миллиарда 221 миллион 225 тысяч 472 байта в 3ГБ
Сначала надо выделить эту часть рисунка , а уже потом использовать инструмент "Заливка" Выглядит как ведро с краской.
1)
var
i,k:integer;
a:array [1..14] of integer;
begin
k:=0;
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
if a[i] mod 2=0 then k:=i;
end;
if k>0 then
begin
for i:=k to 13 do a[i]:=a[i]+1;
a[14]:=0;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
2)
var
i,k:integer;
a:array [1..14] of integer;
begin
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
end;
for i:=1 to 7 do
begin
k:=a[i];
a[i]:=a[i+7];
a[i+7]:=k;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
Если богиня сидящая слева является Правдой, то она не могла сказать что рядом с ней сидит Правда.
Предположим, что Правда сидит в центре, но тогда она не могла сказать про себя что она Мудрость.
Исходя из последнего высказывания по условию задачи и вывода что справа сидит Правда, получаем что в центре сидит Ложь, а слева Мудрость.
Ответ: Мудрость, Ложь, Правда.
Begin
var a:=ReadInteger;
var w,q: integer;
w:=a div 10;
q:=a mod 10;
write((q+w)/2);
end.