Написать программу для Pascal -Ввести натуральное число и определить, какие цифры встречаются несколько раз.
20
ОТВЕТЫ
Program nd;
var n, n1,d, d1: longint;
k,a,c: integer;
b: boolean;
begin
write(Введите число: );
readln(n);
b:= false;
k:=0;
while (ngt;9) and (not b) do
begin
d:= n mod 10;
n1:= n div 10;
while (n1gt;0) and (not b) do
begin
d1:= n1 mod 10;
b:= d1 = d;
n1:= n1 div 10;
end;
n:= n div 10;
end;
while nlt;gt;0 do
begin
c:=n mod 10;
if c=d1 then k:=k+1;
n:=n div 10;
end;
if b then writeln(в этом числе повторяется ,k+1, раз цифра ,d1)
else writeln(цифры не повторяются);
end.
var n, n1,d, d1: longint;
k,a,c: integer;
b: boolean;
begin
write(Введите число: );
readln(n);
b:= false;
k:=0;
while (ngt;9) and (not b) do
begin
d:= n mod 10;
n1:= n div 10;
while (n1gt;0) and (not b) do
begin
d1:= n1 mod 10;
b:= d1 = d;
n1:= n1 div 10;
end;
n:= n div 10;
end;
while nlt;gt;0 do
begin
c:=n mod 10;
if c=d1 then k:=k+1;
n:=n div 10;
end;
if b then writeln(в этом числе повторяется ,k+1, раз цифра ,d1)
else writeln(цифры не повторяются);
end.
Var n,m,k:integer;
mn1,mn2:set of 0..9;
begin
write(n = );
readln(n);
mn1:=[]; mn2:=[];
m:=n;
while mgt;0 do
begin
k:=m mod 10;
if k in mn1 then mn2:=mn2+[k];
mn1:=mn1+[k];
m:=m div 10;
end;
if mn2=[]
then writeln(В числе нет повторяющихся цифр)
else begin
write(Повторяются цифры: );
for k:=0 to 9 do
if k in mn2 then write(k:2);
end;
end.
Пример:
n = 23432
Повторяются цифры: 2 3
mn1,mn2:set of 0..9;
begin
write(n = );
readln(n);
mn1:=[]; mn2:=[];
m:=n;
while mgt;0 do
begin
k:=m mod 10;
if k in mn1 then mn2:=mn2+[k];
mn1:=mn1+[k];
m:=m div 10;
end;
if mn2=[]
then writeln(В числе нет повторяющихся цифр)
else begin
write(Повторяются цифры: );
for k:=0 to 9 do
if k in mn2 then write(k:2);
end;
end.
Пример:
n = 23432
Повторяются цифры: 2 3
103
Отв. дан
Mavelv
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Фотий
Перевести числа из двоичной системы счисления в десятичную: а) ...
2019-05-24 06:31:52
Фёдор
ДАЮ 40 БАЛЛОВ Запиши математическое выражение (7+y)2 на языке ...
2019-05-24 06:25:35
Zheaposba
5. В левой части приведены определения ресурсов, в правой ...
2019-05-24 06:24:35
Эмилий
ПОЖАЛУЙСТА! Начальный паскаль! Решите задачу: 1. Вводится двузначное число. ...
2019-05-24 06:18:53