Ввести натуральное число и определить, какие цифры встречаются несколько раз. Язык:
Ввести натуральное число и определить, какие числа встречаются несколько раз. Язык: Pascal
Задать свой вопрос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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.