Ввести натуральное число и определить, какие цифры встречаются несколько раз. Язык:

Ввести натуральное число и определить, какие числа встречаются несколько раз. Язык: Pascal

Задать свой вопрос
1 ответ

program zz1;

var s, n, k, k1, p:integer; // задаем переменные целого типа

begin

write( введите естественное число );

read(n);  // вводим с клавиатуры число

s:=0;

while ngt;0 do  // организуем цикл, пока в числе есть числа

begin

k:=n mod 10;  //получаем последнюю цифру

s:=n; // запоминаем n

while sgt;0 do  // организуем цикл, пока в числе есть числа

begin

k1:=s mod 10;  // получаем заключительную цифру

s:=s div 10;    // отбрасываем ее

if k = k1 then p:=p+1;

end;

if pgt;1 then write(k, );p:=0; // выводим ответ

n:=n div 10;    //отбрасываем ее

end;

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт