Var n,k,m: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> k:=n; m:=1;
</span><span> while k>0 do
</span><span> begin
</span><span> k:=k div 10;
</span><span> m:=m*10;
</span><span> end;
</span><span> k:=2*m*10+n*10+2;
</span><span> writeln(k);
</span><span>end.
</span>n = 78954
<span>2789542
</span>
<span>
</span>
Как я понял, А - 0, -А - 1, тогда -А И 0 будет ложью.
1, т.к. если хотя бы А=1, то результат будет 1
Ну ясно что девчонки)))
а если порассуждать то
<span>Толя – Мы с Ваней не входили в класс на перемене. (правда)
Игорь – Это кто-то из девчонок. (правда)
Ваня – Это не я и не Петя. (правда)
Оля – Это Петя. (врёт)
Петя – Это Оля. (правда)
Лена – Цветок уронил кто-то из мальчишек.</span> (врёт)
4 правды, 2-е соврали. ничто ничему не противоречит. значит Оля.