Информатика ЕГЭ задание 2

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.

ответ 138 номер последнего

решение 1024/8+10=128+10=138

1 байит= 8 бит

640*480=307200

256 цветов кодируется 1-м байтом

307200 байт

512кбайт=524288 байт

не более 1 страницы

р треугольника= сложить все стороны