===== 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 в трочной системе счисления.
А вместо 0, Н - 1, Т - 2
первое число ААААА = 00000 = 0
потому на 74 месте будет число 73(в десятичной) = 02201 (в троичной) = АТТАН (в требуемой записи)
Думаю, что это КОЛОНКА.... или ДИНАМИК или НАУШНИК...
<span>64*64*8=32768кб= 4096 байт = 4 кб</span>
Var
str : string;
i, num : integer;
begin
readln(str);
num := 0;
for i := 1 to length(str) do
if str[i] in ['0'..'9'] then
num := num + 1;
writeln(num);
end.