Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 840 б
- Dwayne_Johnson 840 б
15 января 2023 10:31
745
Ввести натуральное число и определить какие цифры встречаются несколько раз Массивы использовать нельзя. Можно решать только через : For,while,if,repeat,until,else и все. Кто-нить сможет помочь??
1
ответ
program zifry;
var n,nn,i,j,k:integer;
begin
write('Введите число: ');
readln(n);
for i:=0 to 9 do
begin
k:=0;
nn:=n;
while nn<>0 do
begin
j:=nn mod 10;
if j=i then inc(k);
nn:=nn div 10;
end;
writeln('цифра ',i,' встречается ',k,' раз');
end;
end.
var n,nn,i,j,k:integer;
begin
write('Введите число: ');
readln(n);
for i:=0 to 9 do
begin
k:=0;
nn:=n;
while nn<>0 do
begin
j:=nn mod 10;
if j=i then inc(k);
nn:=nn div 10;
end;
writeln('цифра ',i,' встречается ',k,' раз');
end;
end.
0
·
Хороший ответ
17 января 2023 10:31
Остались вопросы?
Еще вопросы по категории Информатика
Что такое легенда диаграммы? 1)подпись,определяющая категорию данных на диаграмме,с использованием узора или цвета 2)название диаграммы 3)подписи да...
Постройте деревья, соответствующие следующим арифметическим выражениям: 1) (a+b)*(c+2*d) 2) (2*a-3*d)*c+2*b 3) (a+b+2*c)*d 4) 3*a-(2*b+c)*d...
C++. Шифр Виженера. Шифратор написала, а дешифратор не могу собразить. #include «stdafx.h» #include «pch.h» #include #include #include #incl...
Внесите недостающие надписи в схему «информационные потоки»...
Какой символ имеет код 67 в таблице ASCII?...
Все предметы