22.12.2010, 09:18
|
Тыкаю клавиши
|
|
Регистрация: 13.07.2009
Сообщения: 804
Версия Delphi:
Репутация: 48633
|
|
Код:
Var
S:string;
i,k:integer;
c: array [0..9] of integer;
begin
{Ввести строку}
for i:=1 to Length(S) do
begin
for k:=0 to 9 do
if S[i] = IntToStr(k) then inc(c[i]);
end;
for i:=0 to 9 do
writeln(i,' = ',c[i]);
readln;
end.
|