Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1705 б
- arkasha_bortnikov 890 б
- Dwayne_Johnson 860 б
15 января 2023 10:31
768
Ввести натуральное число и определить какие цифры встречаются несколько раз Массивы использовать нельзя. Можно решать только через : 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
Остались вопросы?
Еще вопросы по категории Информатика
Механическое устройство, позволяющее складывать числа, изобрел:...
Текст занимает 0,25 Кбайт памяти компьютера.сколько символов содержит этот текст?...
Отгадайте слово , обозначающее некое понятие информатики . 1)Секретная , научная , ложная , техническая , массовая . 2)Текстовый , графический , сист...
У Тани дома живут ёжики, и, чтобы не запутаться в порциях корма, она написала программу, которая рассчитывает, на сколько дней хватит еды и сколько ли...
Помогите пожалуйста решить тест по информатике! Вариант 1 1. Электронная таблица это: а) прикладная программа, предназначенная для обработки структ...
Все предметы