Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
1.найти разность показаний счетчика на конец месяца и на начало месяца.
2.умножить на цену одного квт/часа
2000 - k
16 бита - i
v=k*i=2000*16=32000 бита=4000 байтов
т.д.
Популярные вопросы