Ввести натуральное число и определить какие цифры встречаются несколько раз Массивы использовать нельзя. Можно решать только через :
10-11 класс
|
For,while,if,repeat,until,else и все. Кто-нить сможет помочь??
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.
Другие вопросы из категории
Вадим 3) Антон 4) Илья
1.Перевести в двоичную систему счисления :7756;4258;5568.
2.Перевести в десятичную систему счисления:100101,001(2);101111,1101(2);10101,01(2)
3.Выпишите целые десятичные числа ,принадлежащие следующему промежутку [101101(2),110000(2)]
4.В классе 1111(2)-девочек и 1100(2)-мальчиков .Сколько учеников в классе.Ответ в двоичной системе счисления.
Читайте также
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
6.
2)Ввести целое число и определить количество черных и нечетных цифр.
Пример:
Введите целое число :12547
количество нечетных цифр:3
количество четных цифр:2
234 равна 10. Задача: сумма цифр ввести целое число и определить верно ли, что в его записи есть 2 одинаковые цифры. Пример: введите целое число 1234 нет введите целое число 1224 да
ввести натуральное число и определить, верно ли, что сумма цифр равна 10
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число