Ответ:100.000мб
Объяснение:Ну 5000мб хватает очень много.А 100гб даже не знаю)
===== PascalABC.NET =====
begin
ReadArrInteger(3).Select(p -> p.IsEven ? p * p : p).Println(',')
end.
Замечание: В Паскаль данные разделяются пробелами, или переводами строки (клавиша Enter), поэтому вводить черз запятую не выйдет )))
// PascalABC.Net 3.0, сборка 1052
const
nn=100;
var
a:array[1..nn] of integer;
p,s:longint;
i,n:byte;
begin
Write('Введите количество элементов в массиве: '); Read(n);
Writeln('Вводите целочисленные элементы массива через пробел');
s:=0; p:=1;
for i:=1 to n do begin
Read(a[i]);
if i mod 2 = 0 then p:=p*a[i];
s:=s+a[i]
end;
Writeln('Произведение элементов с четными номерами: ',p);
Writeln('Среднее арифметическое элементов: ',s/n)
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов в массиве: 10
Вводите целочисленные элементы массива через пробел
-4 6 11 8 12 21 7 13 9 -15
Произведение элементов с четными номерами: -196560
Среднее арифметическое элементов: 6.8
1. 5 бит = 2^5 = 32 цвета
2. 16 цветов - 4 бита, т.к. 2^4=16
3. R-красный, G-зеленый, B-синий. Красного и зеленого под завязку, синего нет. Смешаем красный и зеленый, получим желтый.
4. Узнаем объем одного пикселя. 705кб/(1504*640) = (705*1024*8 бит)/(94*16*5*128) = (705*2^13)/(470*2^11) = (705*4)/470 = 6 бит.
6 бит - это 2^6=64 цвета.
5. 512 цветов - это 2^9, то есть на один пиксель приходится 9 бит. (340*560*9)/(1024*8) = (340*70*9)/1024 = 210 Кб.
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Good(s:string):boolean;
begin
var n:=s.Length;
var t:=s.ToCharArray.Distinct;
Result:=false;
foreach var c in t do begin
var k:=0;
for var i:=1 to n do
if s[i]=c then k+=1;
if k=3 then begin Result:=true; Break end
end;
end;
begin
var aw:=ReadlnString('Ведите строку:').ToWords;
var aw2:=aw.Where(w->Good(w));
aw2.Println;
end.
<u>Пример</u>
Ведите строку: корова барометр молоко длинношеее перемена соответствие кровообращение молоковоз борода
молоко длинношеее перемена соответствие кровообращение