Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
15 января 2023 10:31
991
Ввести натуральное число и определить какие цифры встречаются несколько раз Массивы использовать нельзя. Можно решать только через : 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
Остались вопросы?
Еще вопросы по категории Информатика
графический файл содержит черно-белое изображение размером с 16 градациями серого цвета размером 10х10 точек Какой объем этого файла?...
614000 бітів в байтах, кілобайтах, мегабайтах 524288 байтів в бітах, кілобайтах, мегабайтах 256 кілобайт в бітах, байтах, мегабайтах 4 мегабайта в б...
1. Устройство для прослушивания музыки, звука (8 букв) 2. Устройство для хранения программ и данных (4 буквы) 3. Устройство для просмотра информации...
Несжатое растровое изображение размером 64 х 512 пикселей занимает 32 Кб памяти. Каково максимально возможное число цветов в палитре изображения? 8 1...
помогите пожалуйста с тестом!!!!!!)) 1 что относится к средствам мультимедиа: а) звук, текст, графика, изображения. б) звук, колонки, графика. в) аним...