племя мульти имеет 16 символьный алфавит племя пульти использует 128 символьный алфавит вожди племен обменялись письмами письмо племени мульти содержат 100 символов а письмо племени пульти 56 символов Сравните объёмы информации содержащиеся в письмах
"enter your last name: "; cin.getline(lname, biograthy); strcpy(flname, fname); strcat(flname, lname); cout < < "here's the information in a single: " < < flname < < endl; system("pause"); return 0; }
1. Создадим массив для хранения информации о количестве встретившихся цифр во введенном числе.
2. Ввод самого числа, далее в цикле находим остаток от деления на 10 и увеличиваем значение элемента массива с индексом равным получившемуся остатку на 1. Делим число нацело на десять. Повторяем пока число не равно 0.
3. Выводим результат. В массиве индекс элемента указывает на цифру числа, а значение элемента на количество этой цифры в числе.
//РасаlABC.net v3.1
var a:array[0..9]of integer;
n,i,m: integer;
begin
readln(n);
repeat
m:=n mod 10;
inc(a[m]);
n:=n div 10;
until n<=0;
for i := 0 to 9 do begin
if a[i]>1 then writeln('Цифра:',i,' количество:', a[i]);
end;
end.
Тестовый прогон:
1112333
Цифра:1 количество:3
Цифра:3 количество:3