Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
(1-2+3)*4*5=40,
(-1+2+3+4)*5=40
60,111100,3c,74
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.
20-25=-5
Популярные вопросы