//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.
Спасибо
Ответ дал: Гость
язык программирования: паскальvara, b, c, min : integer; beginreadln (a); readln (b); readln (c); min : = a; if b < min thenmin : = b; if c < min thenmin : = c; writeln (min); end.
Ответ дал: Гость
письменность была нужна для оформления сделок, фиксации движения товаров, выручки, учета, финикийцы известны, прежде всего, как предприимчивые торговцы и отважные мореплаватели.
Популярные вопросы