1 цвет=2 цвета=2^1
16 битная система
2^16=65536 цветов
Var t:integer;
b,a:real;
begin
write('Вклад равен ');
read(a);
b:=1.05;
while a<1000000 do
begin
a:=a*b;
t:=t+1;
end;
write('Под процентами пролежавши ',t,' лет вклад накопил ',a:12:4,' рублей');
end.<span>
</span>
<em>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
ReadSeqInteger(n).JoinIntoString('').
Where(c->c in ['2','4','6','8']).Select(c->c.ToDigit).Sum.Println
end.
<u>Пример</u>
13
4492 13638 -4490 4186 13985 -4266 5805 -26574 28710 -378 17920 1886 -24200
146
<span>90мб = 92160 Кбайт
Вычислим скорость передачи данных по каналу: </span>92160 Кбайт/3 мин = 30720 Кбайт/мин.
Следовательно, скорость умножаем на время.
480 Сек = 8 минут
30720 Кбайт*8 минут = 245760 Кбайт
Переведем Кбайты в Мбайты
245760 Кбайт\1024=240 Мбайт