Help! Срочно! 1)Дано число n. Вывести наименьшую цифру.
2)Дано число n. Вывести фразу:»кол-во четных,больше чем нечетных цифр » или «кол-во нечетных больше чем четных цифр» или «количество четных равно количеству нечетных».

Вопрос школьника по предмету Информатика

Help! Срочно! 1)Дано число n. Вывести наименьшую цифру.
2)Дано число n. Вывести фразу:»кол-во четных,больше чем нечетных цифр » или «кол-во нечетных больше чем четных цифр» или «количество четных равно количеству нечетных».

Ответ учителя по предмету Информатика

1)

var n,min:integer;

begin

write(‘n = ‘);

readln(n);

min:=9;

while n>0 do

 begin

 if n mod 10 < min then min:=n mod 10;

 n:=n div 10;

 end;

writeln(‘min = ‘,min);

end.

Пример:

n = 24815

min = 1

2)

var n,k1,k2:integer;

begin

write(‘n = ‘);

readln(n);

k1:=0; k2:=0;

while n>0 do

 begin

 if n mod 2=0 then k1:=k1+1 else k2:=k2+1;

 n:=n div 10;

 end;

if k1>k2 then writeln(‘кол-во четных больше чем нечетных цифр’)

else if k2>k1 then writeln(‘кол-во нечетных больше чем четных цифр’)

     else writeln(‘количество четных равно количеству нечетных’);

end.

Пример:

n = 1234

количество четных равно количеству нечетных