Да, визуальную информацию, объяснять как думаю не нужно.
Program q;
var a,b:integer;
c:char;
begin
a:=random(10);
b:=random(32)+224;
c:=chr(b);
writeln('рандомная цифра:',a);
writeln('рандомная буква:',c);
<span>end.</span>
I = (x*y)*i
N=2^i
I-вес картинки в битах.. 128кбайт=128 *1024*8=1048576 (бит)
(x*y)-разрешение (1024*512)
i- глубина(битность) кодирования одного пикселя
N- количество цветов в палитре
из первого уравнения выражаем i=I / (x*y) = 1048576 / (1024*512) =2 (бита)
тогда N = 2^2=4
от-т: в палитре 4 цвета
CLS
INPUT a
m=0
FOR I=1 TO a
INPUT b
IF (b mod 10=8) AND b>m THEN m=b
END IF
NEXT
PRINT m
END