//PascalABC.NET версия 3.2, сборка 1467
//Если программа не запускается, то обновите версию
begin
var m := ArrRandomReal(5, 1, 10); // автоматический ввод данных
Println(m);
Println(m.Aggregate(1.0, (x, y)-> x * y));
end.
1. Передача (или получение)
2. Обработка
3. Обработка
4. Хранение
5. Передача
6. Получение
7. Передача
8. Обработка
Надеюсь правильно, сорян если ошибся
Ответ:
32 байта
Объяснение:
Ну так как 1 цвет это 1 байт, то логично 32 цвета это 32 байта. А в битвах это 32 × 8 = 256 бит
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(10,-99,99); a.Println
end.
<u><em>Тестовое решение</em></u>
-12 -89 55 66 41 -31 17 -25 -34 -71
Uses
System.Collections.Generic,
System;
var
simple: List<integer> := new List<integer>;
i, n, p: integer;
m: longint;
begin
read(n);
for i := 2 to n do
begin
m := 1;
foreach s: integer in simple do
m := m * i mod s;
if m > 0 then begin
simple.Add(i);
// write(i, ' ');
end;
end;
writeln();
foreach s: integer in simple do
begin
if Math.Pow(2, s) - 1 <= longint.MaxValue then begin
m := round(Math.Pow(2, s) - 1);
if (m <= n) and simple.Contains(m) then
write(m, ' ');
end;
end;
end.