//pascal var x: longint; count: byte; begin write('введите число x: '); readln(x); while x < > 0 do begin if x mod 10 mod 2 < > 0 then count : = count + 1; x : = x div 10; end; writeln('нечетных = ', count); readln; end.
Спасибо
Ответ дал: Гость
решение: наливаем в 5-вую и из нее в 3-вую, в ней осталось 2 литра. из 3-ой выливаем все обратно, оставшиеся 2 литра выливаем в 3-вую. затем наполняем 5-вую и из нее отливаем 1 литр в 3-вую, итак в 5-литрой 4 литра
Ответ дал: Гость
пользоветель-это система их бывает много есле создать.
Популярные вопросы