1026 бит = 128,25 байт
1 кбайт = 1024 байт
8194 бит = 1024,25 байт
1028 байт8 кбайт = 8192 байт
8194 байт
<span>8388608б бит = 1048576 байт = 1024 кбайт = 1 Мбайт</span>
var
a, max, i: integer;
begin
repeat
readln(a);
if(a > max) and (a mod 2 = 0) then max := a;
inc(i);
until(i = 6);
writeln('Макс. четное число: ', max);
end.
1) 1,2,1
Так как: ((5*3)-3)*5=60
2) Сместиться на (0;0) - Но не уверен т.к. условие немного некорректное
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-100,100); a.Println;
var n:=a.Where(x->x.IsEven).Count;
Writeln('Четных- ',n,', нечетных- ',10-n)
end.
<u>Пример</u>
44 79 -39 29 -81 -50 33 -96 52 -47
Четных- 4, нечетных- 6