На языке программирования Паскаль написать решение задачи. Сумма 15000 рублей положена в сберегательный банк, при этом прирост составляет 5% годовых. Составьте алгоритм, определяющий, через какой промежуток времени первоначальная сумма увеличится в два раза

41 байт

Объяснение:

Данные на карте = Код + Номер + Доп.Информация (25 байт)

Код: (1 код содержит 15 знаков)

Включает латинские буквы (большие и строчные) = 26×2, десятичные цифры = 10, и особые знаки из комплекта @#$%^&*() = 9

N = 26 × 2 + 10 + 9 = 72

N = 2^i

64 < 72 < 128

2^6 < 72 < 2^7 (берём большее)

i = 7 бит

1 код = 15 × 7 = 105 бит = 105 ÷ 8 = 13,125 (округляем в большую сторону) = 14 байт

Номер:

N = 1000

512 < 1000 < 1024

i = 10 бит

1 номер = 10 ÷ 8 = 1,25 (округляем в большую сторону) = 2 байта

Данные на карте = 14 байт (код) + 2 байта (номер) + 25 байт (доп.инф.) = 41 байт

ответ: 41 байт

Program mm;
var a:array[1..12] of integer;
begin
for i:=1 to 12 do begin
а[1]:=5;
 а[2]:=4;
 а[3]:=-3;
 а[4]:=1;
 а[5]:=0;
а[6]:=-4;
 а[7]:=(у тебя не написано);
 а[8]=25;
 а[9]=-8;
 a[10]=-5;
 а[11]=-17;
 а[12]=-1;
end;
writeln('Вот исходный массив');
for i:=1 to 12 do writeln('A[',i,']=',a[i]); 
for i:=1 to 12 do begin
if (A[i]<0) then a[i]:=1;
if (a[i]>0) then a[i]:=-5;
end;
writeln('Вот полученный массив');
for i:=1 to 12 do writeln('A[',i,']=',a[i]); 
writeln(' Введите 12 чисел');
for i:=1 to 12 do readln(A[i]);          (это доп оценка)
end.