9 класс. Сделайте программку в паскале Ввести естественное число и найти,
9 класс. Сделайте программку в паскале Ввести натуральное число и найти, какие числа встречаются несколько раз, если никакие не повторяются вывести: "Числа не повторяются."
У меня получилось ну это не верно!
program five;
var n,m,i,j,k:integer;
begin
write('Введите число:');
readln(n);
for i:=0 to 9 do
begin
k:=0;
m:=n;
while mlt;gt;0 do
begin
j:=m mod 10;
if j=i then k:=k+1;
m:=m div 10;
end;
writeln('цифра ',i,' встречается ',k,' раз');
end;
end.
1 ответ
Ромка Волконовский
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.
Регина Аненкина
спасибо друг) сколько раз теснее выручал!)) люблю тебя
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов