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
Поделитесь своими знаниями, ответьте на вопрос:
5. текст занимает полных 5 страниц. на каждой странице размещается 30 строк по 70 символов в строке. какой объём оперативной памяти (в байтах) займет этот текст?
если 2байт/символ(современная кодировка) то 30*70*2*5(21000)