Ввести натуральное число и определить какие цифры встречаются несколько раз массивы использовать нельзя. можно решать только через : for,while,if,repeat,until,else и все. кто-нить сможет ? ?
hodos10
2
10.03.2019 05:00
4
Другие вопросы по теме Информатика
viktoriadog
04.05.2020 11:53
shirowa234567815690
04.05.2020 11:53
ira231006
19.04.2020 19:27
bachko2012
19.04.2020 19:27
olgakankova86
19.04.2020 19:27
nikitabordkin
07.03.2021 14:06
benten2434
07.03.2021 14:05
Sveto4ka342
07.03.2021 14:01
Популярные вопросы
- Этапы борьбы за свержение ордынского ига...
3 - Причины подъёма Северо-Восточной Руси...
1 - Особенности русского города в XIII—XV вв...
1 - Двойственная роль городов в эпоху Средневековья:...
3 - Органы центральной власти Российского государства в XV — начале XVI в. (структура...
1 - Значение образования Российского централизованного государства...
1 - Категории населения XV–XVI вв. (Основные социальные группы)...
2 - Реформы великой княгини Елены Глинской...
1 - Причины принятия Иваном IV царского титула...
1 - Организация управления в годы опричнины...
2
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.