Код
Var g,x:string;
k,i:byte;
begin
writeln (‘Vvedi stroky’);
readln (x);
g:=’0,1,2,3,4,5,6,7,8,9’;
for i:=1 to length (x) do
if pos (x[i],g)>0 then inc (k);
readln;
end.
k,i:byte;
begin
writeln (‘Vvedi stroky’);
readln (x);
g:=’0,1,2,3,4,5,6,7,8,9’;
for i:=1 to length (x) do
if pos (x[i],g)>0 then inc (k);
readln;
end.
Сколько раз нужно еще повторить - ПОЛЬЗУЕМСЯ ТЕГАМИ для оформления исходников!