// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var s1:=new Stack<integer>;
var s2:=new Stack<integer>;
foreach var e in Range(1,10) do s1.Push(e);
s1.Println;
foreach var e in Range(20,25) do s2.Push(e);
s2.Println;
foreach var e in s2.Reverse do s1.Push(e);
s1.Println
end.
<u><em>Тестовое решение:</em></u>
10 9 8 7 6 5 4 3 2 1
25 24 23 22 21 20
25 24 23 22 21 20 10 9 8 7 6 5 4 3 2 1
Uses crt;
var a,b,c: integer;
begin
for a:=1 to 9 do
for b:=1 to 9 do
for c:=0 to 9 do
if a+10*a+b+100*a+10*b+c=100*b+10*c+b
then writeln(a,' ',b,' ', c);
<span>end.</span>
Таблица истинности во вложении.
Где? на каком сайте? какая почта?
Каждая фигура может быть 2 цветов.
2 цвета для квадрата,
2 цвета для треугольника ,
2 цвета для <span>звезды.
Итого: 2*3 = 6 </span>разных флажков <span>может быть.
Ответ: 6.</span>