Розв'яжіть рівняння (х+512) байт = 1 Кбайт

512 байт

Объяснение:

1 Кбайт = 1024 байт

(х+512)=1024

х=1024 - 512

х=512 байт

думаю, что 19,5 кб = 0,019 мб.

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.