))с клавиатуры вводится целое 4-х значное число. выдать сообщение о том, есть ли в этом числе четные цифры и указать их количество. на паскале

218

338

Посмотреть ответы 2

Ответы на вопрос:

лааллввлллаалв

Информатика

4,4(67 оценок)

var b: integer; begin readln(b); if (b div 1000)mod 2=0 then writeln('1 цифра четная') else writeln('1 цифра нечетная'); if ((b div 100) mod 10)mod 2=0 then writeln('2 цифра четная') else writeln('2 цифра нечетная'); if ((b div 10)mod 10)mod 2=0 then writeln('3 цифра четная')else writeln('3 цифра нечетная'); if (b mod 100)mod 2=0 then writeln('4 цифра четная') else writeln('4 цифра нечетная'); end.