<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var (k1,k2):=ReadInteger2('Границы номеров элементов k1 и k2:');
if (k1>0) and (k2<=a.Length) and (k2>k1) then
Writeln('П=',a[k1-1:k2].Aggregate(BigInteger(1),(p,q)->p*q))
else Writeln('Неверно заданы k1,k2')
end.
<u>Пример</u>
n= 17
-49 33 -50 34 -21 -3 -16 -39 8 -27 -28 11 -12 -33 47 9 -20
Границы номеров элементов k1 и k2: 3 15
П=-82750680146534400
Var
n, sum :integer;
begin
readln(n);
sum:= (n div 10) + (n mod 10);
write(sum,' - ');
if sum mod 2 = 0 then
write('четная')
else
write('нечетная');
end.
I = log₂ 64 = 6 бит - кодируется один символ.
1,5 кб = 1536 байт
6 бит ≈ 1 байт
I = K · i => K = I/i = 1536/1 = 1536 символов
П0 cos ИП0 КвКор + С/П
Ввод: x С/П.
Вывод: y.
Ответ:
Объяснение:
карс лок- если нажать печатает вот такие буквы: АРПОААО. Если ещё раз нажать будут печататся не заглавные буквы