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
В любом компьютере обязательно есть устройства, которые хранят информацию. Устройства хранения информации в компьютере разделяются на оперативную память (память, которая нужна для хранения промежуточных результатов вычислений) и долговременную — здесь хранятся файлы (определение довольно грубое но,суть отражает верно).
В оперативной памяти компьютера любая информация хранится только до выключения компьютера. Если вам нужно сохранить документ и вернуться к работе над ним завтра, его нужно записать на долговременное устройство хранения, обычно – на диск.