Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
ответом будет число 4
50зн=50байт
60зн=60байт
1кбайт= 1024байта
1мб=1024кбайта
=> 1мбайт=(1024*1024)байт
1мбайт=1048576 байт
50байт/1048576байт=0,0000476837мбайт
60байт/1048576байт=0,0000572205мбайт
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.
Популярные вопросы