//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.
Спасибо
Ответ дал: Гость
1 simvol zanimaet 1 bait(tak kak imeem tekst);
tekst shpargalki sostavliaet 50*50=2500 simvolov-2500 bait.
da + eshe 0,3*2500=750.
vsego 2500+750=3250 bait.
Ответ дал: Гость
Закончились лекции, и студенты пошли домой (конъюнкция). в природе бывает, что солнце при дожде светит или прячется в тучах (дизъюнкция). в этом году летом мы либо поедем к морю, либо будем жить на даче (строгая дизъюнкция). если будет хорошая погода, то мы пойдем гулять (импликация). неверно, что 2 * 2 = 5 (инверсия). завтра мы не пойдем гулять (инверсия). я куплю ноутбук тогда и только тогда, когда получу премию (эквиваленция).
Популярные вопросы