===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.
Var n,i:integer;
begin
n:=0;
for i:=1 to 4 do
n:=n+i;
writeln(n);
readln;
<span>end.</span>
1)Т.к. каждый символ может иметь 64 значения, то есть 2^{6} , то на каждый символ выделяется 6 бит(от 0 до 63, всего 64 варианта).Всего символов - 1000. Значит всего нужно 6*1000=6000бит=750байт
2)Один символ (включая пробел) = 1 байт
перевод в байты - 3.5 Кб * 1024 байт = 3584 байт
Количество символов - 3584
Ответ:
One = input()
Two = input()
Three = input()
if One == 'раз' and Two == 'два' and Three == 'три':
print('ГОРИ')
else:
print('НЕ ГОРИ')
Объяснение:
проверил,работает