дано натуральное число. найти какое из цифр в этом числе почаще

дано естественное число. найти какое из цифр в этом числе почаще 0 либо 9

Задать свой вопрос
1 ответ
Var s: string;
    i, z, n, a: integer;
begin
     readln(a);
     s := floattostr(a);
     for i := 1 to length(s) do
     begin
         if (s[i] = '0') then inc(z);
         if (s[i] = '9') then inc(n);
     end;
     writeln(z, ' ', n);
     if (z gt; n) then writeln('"0" gt; "9"');
     if (z lt; n) then writeln('"0" lt; "9"');
     if ((z = 0) and (n = 0)) then writeln('"0" = "9" = 0!')
        else if (z = n) then writeln('"0" = "9" = ', z);
end.

Только я тут испугался аж: всё правильно, а не так пишет х) Если ввести число, начинающееся с нуля, то первые нули отбросятся:)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт