<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ArrRandom(15,-5,15); m.Println;
var a:=ReadInteger('a =');
m.Transform(t->t-a); m.Println
end.
<u>Пример</u>
-2 14 -3 2 -4 6 1 -3 9 1 -4 -2 14 9 8
a = 5
-7 9 -8 -3 -9 1 -4 -8 4 -4 -9 -7 9 4 3
32 = 2^5, значит 1 цвет = 5 бит
5*3 = 15 бит
Ответ:
122,8 мин - 2,05 часа
Объяснение:
Могу предложить решение, буквенные обозначения подставь.
600Мб*1024=614400Кб - объем диска
614400/500=1228,8 - 1228 фото
1228*6=7368 сек=122,8 мин.
Var x: real;
begin
read(x);
if(x < -1) then writeln(-x + 1)
else if(x >= -1) and (x < 0) then writeln(0)
else writeln(x * x);
<span>end.</span>
Поисковые системы общего назначения позволяют находить документы во всемирной паутине по ключевым словам, которые вводятся в поле поиска/или с помощью иерархической системы каталогов.