Задать вопрос Регистрация
Помочь другим

  • Дано натуральное число. Определить: 1) Определить количество повторений заданной цифры в нем 2) Сколько раз в нем встречается цифра, равная последней 3) Количество четных цифр в нем.

    желательно в Basic. но можно и паскаль

Ответы 1

  • var a,c,l,w1,w2,w3 : longint;

    begin

      readln(a,c);

      w1:=0;

      w2:=0;

      w3:=0;

      l:=a mod 10;

      while a>0 do

      begin

         if a mod 10=c then w1:=w1+1;

         if a mod 10=l then w2:=w2+1;

         if a mod 2=0 then w3:=w3+1;

         a:=a div 10;

      end;

      writeln(w1,' ',w2,' ',w3);

    end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years