Держи)
program zad1;
var
i:integer;
a:real;
begin
a:=100000;
for i:=1 to 40 do
begin
if i<5 then
begin
a:=a*1.2;
a:=a*0.88;
writeln(i,' год ',a:0:0);
end
else
begin
a:=a*1.2;
a:=a*0.88;
a:=a-5000;
writeln(i,' год ',a:0:0);
end;
end;
<span>end.</span>
А схема где??? Забыли про неё?
Чтобы сложить две цифры в одном разряде в системе счисления по некоторому основанию n, достаточно выполнить сложение в любой подходящей системе счисления (например, десятичной). Если результат будет меньше n, его следует записать в заданной системе счисления. В противном случае из результата нужно вычесть n, записать полученную разность и сделать перенос +1 в старший разряд.
Примеры в системе счисления по основанию 10.
5+3=8
6+4=10, 10-10=0 и +1 в следующий разряд
9+5=14, 14-10=4 и +1 в следующий разряд.
Эти же примеры в системе счисления по основанию 12.
5+3=8
6+4=10, записываем, как А₁₂
9+5=14, 14-12=2 и +1 в следующий разряд, получаем 12₁₂
Эти же примеры в системе счисления по основанию 16.
5+3=8
6+4=10, записываем, как А₁₆
9+5=14, записываем, как E₁₆
<span>Первый сказал: “Все мы лжецы” - он лжец, так как есть и рыцари
</span>Второй сказал: <span>“Все, кто говорили до меня, лжецы” - он рыцарь
Третий сказал: </span><span>“Все, кто говорили до меня, лжецы” - он лжец, так как второй рыцарь
Остальные тоже лжецы, так как говорят тоже самое.
Ответ: рыцарь один
</span>
Если в палитре 65536 цветов, то для хранения 1 пикселя необходимо log(2)65536=16 бит. Для хранения изображения - 54*54*16=46656 бит
