А=12
В=12+19=31
С=37-31+10=16
С=35-16=19
D=19+6=25
К=25+15=40
К=40
Декодируем первую фразу: <span>вражда не делает добра.
</span>Зашифруем вторую фразу: <span>олпср.</span>
Var
A,b,c:integer;
Begin
b:=-1;
c:=0;
Repeat
ReadLn(A);
b:=b+1;
if (A mod 2 <> 0)and(A mod 3 = 0) then c:=c+1
Until A = 0;
WriteLn('Длина последовательности: ',b);
WriteLn('Кол-ко нечётных чисел, кратных трём: ',c);
End.
PascalABC.Net
1)
var
i,s,p : integer;
begin
s := 0;
p := 1;
for i := 3 to 18 do
if (i-2) mod 3 = 0 then
begin
s := s + i;
p := p * i;
end;
writeln ('s=',s);
writeln ('p=',p);<span>
end.
2)
Программа не зачисляет процент в первый год, если нужно, чтобы зачислила, то поменяй местами строки вывода и присвоения внутри цикла
var
i : integer;
s : real;
begin
s := 10000;
for i := 2010 to 2015 do
begin
writeln (i,'-',s);
s := s * 1.1;
end;<span>
end.</span></span>
N = 2^i
N - количество различных слов
i - количество ячеек памяти, нужных для кодирования 1 слова
i = 5 бит
N = 2^5 = 32 слова в этом племени