22.12.2010, 09:35
|
Новичок
|
|
Регистрация: 24.11.2010
Сообщения: 91
Репутация: 41
|
|
Код:
const c='0123456789';
var i,j,k:integer;
s:string;
begin
write('s=');readln(s);
for i:=1 to length(c) do begin
k:=0;
for j:=1 to length(s) do
if c[i]=s[j] then Inc(k);
if k<>0 then writeln(c[i],'=',k);
end;
readln;
|