===== PascalABC.NET =====
-1-
begin
var x := ReadReal('Введите вклад?');
var n := ReadInteger('Введите срок?');
for var i := 1 to n do
x *= 1.03;
Writeln(i, ' год - ', x:0:2, ' руб')
end
end.
-2-
for var i := 1 to 10 do
Writeln('5*', i, ' = ', 5 * i)
-3-
var s := ReadSeqReal('Введите 5 любых чисел:', 5).Sum;
Println('Их сумма равна', s);
По диагонали с 3 до 18:3,6,9,12,15,18.
2.в строчку идя от трех до 18:3,7,11,15,19,4,6,8,10,12,14,1,4,9,13,17,21,24, 20,16,12,8,4,35,30,25,20,15,10,33,30,27,24,21,18.