Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1695 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
15 января 2023 10:31
751
Ввести натуральное число и определить какие цифры встречаются несколько раз Массивы использовать нельзя. Можно решать только через : 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
Остались вопросы?
Еще вопросы по категории Информатика
Что такое знак? Приведите примеры знаков, используемых в общении людей....
В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в данной кодировке...
Решите, составив математическую модель, следующую задачу. Теплоход прошёл 4 км против течения реки, а затем прошёл ещё 33 км по течению, затратив на в...
изменить программу используя неполное ветвление...
Система, обеспечивающая безопасность музейного экспоната, контролируется 29 датчиками. Запишите наименьшую разрядность двоичного кода, достаточную для...
Все предметы