Окей,
Черный и Белый (без град серого) - это два цвета, значит кол-во цветов в палитре - 2. (N=2)
x=400
y=250
Найдём глубину цвета.
N=2^i
i=log2 2
i=1
Находим информационный объём.
V=x*y*i
V=400*250*1=100000 бит
Переводим биты в килобайты.
100000 бит = 12500 байт = 12,2 кБ
Ответ: 12,2 Кб
Ssh-криптографический протокол,более безопасен и широко используется
Обычно размер указывают, раз нету, взял по дефолту 10(Const N=10). И диапазон какой-то странный, думаю имелось введу (-5;5)
Program G;
Uses Crt;
Const N=10;
Var i: integer; mass: array [1..n] of integer;
Begin
Randomize;
ClrScr;
Writeln('Исходный массив из 10 чисел диапозона (-5;5):');
For i:=1 to N do
Begin
Mass[i]:=Random(11)-5;
Write(Mass[i]:4);
End;
Writeln;
Writeln('Исходный массив после замены всех отрицательны на -1:');
For i:=1 to N do
If mass[i]<0 then mass[i]:=-1;
For i:=1 to N do write(Mass[i]:4);
Readln;
<span> End.</span>
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Введите двухзначное натуральное число:');
if (n div 10).IsEven and (n mod 10).IsEven then Writeln('Да')
else Writeln('Нет')
end.
<u>Пример</u>
Введите двухзначное натуральное число: 28
Да