Var
A:longint;
Begin
WriteLn('Введите пятизначное число');
ReadLn(A);
Write('Произведение нечётных цифр = ',(A div 10000)*((A div 100) mod 10)*(A mod 10))
End.
128 * 128 = 16384 пикселей
4 Кбайт = 4096 байт = 32768 бит
32768 / 16384 = 2 бита на пиксель
2² = 4
Ответ: 4 цвета.
Avast,Nod32,Kaspersky Security ,360
1)
uses crt;
var i,k:integer;
n:real;
begin
randomize;
read(k);
for i:=1 to k do
begin
n:=random;
write(n:0:2,' ');
end;
<span>end.
</span>2)
uses crt;
var i,k,n,a:integer;
begin
randomize;
read(k,a);
for i:=1 to k do
begin
n:=random(0,a);
write(n,' ');
end;
<span>end.</span>