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

  • Ввести натуральное число и определить какие цифры встречаются несколько раз Массивы использовать нельзя. Можно решать только через : For,while,if,repeat,until,else и все. Кто-нить сможет помочь??

Ответы 1

  • program zifry;var n,nn,i,j,k:integer;beginwrite('Введите число: ');readln(n);for i:=0 to 9 dobegink:=0;nn:=n;while nn<>0 dobeginj:=nn mod 10;if j=i then inc(k);nn:=nn div 10;end;writeln('цифра ',i,' встречается ',k,' раз');end;end.

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

Еще вопросы

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

Войти через Google

 или

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

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

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