===== PascalABC.NET =====
-1-
begin
var x := ReadReal('Введите вклад?');
var n := ReadInteger('Введите срок?');
for var i := 1 to n do
begin
x *= 1.03;
Writeln(i, ' год - ', x:0:2, ' руб')
end
end.
-2-
begin
for var i := 1 to 10 do
Writeln('5*', i, ' = ', 5 * i)
end.
-3-
begin
var s := ReadSeqReal('Введите 5 любых чисел:', 5).Sum;
Println('Их сумма равна', s);
end.
Если богиня сидящая слева является Правдой, то она не могла сказать что рядом с ней сидит Правда.
Предположим, что Правда сидит в центре, но тогда она не могла сказать про себя что она Мудрость.
Исходя из последнего высказывания по условию задачи и вывода что справа сидит Правда, получаем что в центре сидит Ложь, а слева Мудрость.
Ответ: Мудрость, Ложь, Правда.
1) s:=1*2=2
2)s:=2*2=4
3)s:=4*2=8
4)s:=8*2=16
5)s:=16*2=32
6)s:=32*2=64
7)s:=64*2=128
Ответ: s:=128