Для заданного натурального числа определить, сколько раз в его записи встречается каждая из цифр

@JohnSerman · Регистрация: 26.06.2016

Для заданного натурального числа определить, сколько раз в его записи встречается каждая из цифр. (Паскаль и Бейсик)

Помогите :С

@Tosse · 22.12.2016, 14:16

Pascal

var
a:array[0..9] of integer;
b, i, c:integer;
begin
writeln('Введите натуральное число');
readln(b);
while b > 0 do
    begin
    c:=b mod 10;
    b:=b div 10;
    inc(a[c]);
    end;
for i:=0 to 9 do
    writeln('Цифра ',i,' встречается ',a[i],' раз');
end.

@JohnSerman 0 / 0 / 0 Регистрация: 26.06.2016 Сообщений: 9
		1
	Для заданного натурального числа определить, сколько раз в его записи встречается каждая из цифр 22.12.2016, 13:31. Просмотров 1402. Ответов 1 Метки нет (Все метки) Для заданного натурального числа определить, сколько раз в его записи встречается каждая из цифр. (Паскаль и Бейсик) Помогите :С 0

Опции темы

Для заданного натурального числа определить, сколько раз в его записи встречается каждая из цифр

Решение