===== 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.
5 Кбайтов = 5*2^13 битов
2560=5*512 =5*2^9 символов
5*2^13 : (5*2^11) = 2^2 =4 бита для одного символа
2^4 =16 символов в данном алфавите
Тело цикла будет выполнено 31 раз. Следовательно переменная s станет равна 93
Получается слово МОТОР. Там не тюлень, а морж нарисован на картинке