//Школьный вариант Var s:string; p:real; se:set of char; i:integer; begin readln(s); se:=['0','1','2','3','4','5','6','7','8','9']; for i:=1 to length(s) do if s[i] in se then begin p:=p+1; write(s[i]); end; p:=p/(length(s)/100); writeln; writeln('Percent=',p); end.
//Альтернативный вариант Var s:string; se:set of char; begin readln(s); se:=['0','1','2','3','4','5','6','7','8','9']; s.Where(x -> x in se).Println; writeln('Percent=',s.where(x -> x in se).Count/(length(s)/100)); end.
Пример ввода: I3artle, Caster, 1 of 7 summoned characters. Пример вывода: 317 Percent=6.81818181818182
Ну со знака "= " и начинается Пример: =B2+C2 формула в ячейке А1 т.е это <span>A1= B2+C2 </span>вот еще пример: <span>=СУММ(C2:C5) - это будет сумма от С2 до С5</span>