В паскале.Определите чего в строке больше и на сколько букв или цифр?
Answers & Comments
danulpopov// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString; var r:=s.MatchValues('[A-Za-zА-Яа-яЁё]').Count-s.MatchValues('\d').Count; if r>0 Then Writeln('Букв больше на ',r) else if r<0 Then Writeln('Цифр больше на ',-r) else Writeln('Букв и цифр поровну') end.
Пример erer344rкеПВРМИHD5r54687rt8743ge56t5g54ф456 Букв больше на 1
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
var r:=s.MatchValues('[A-Za-zА-Яа-яЁё]').Count-s.MatchValues('\d').Count;
if r>0 Then Writeln('Букв больше на ',r)
else
if r<0 Then Writeln('Цифр больше на ',-r)
else Writeln('Букв и цифр поровну')
end.
Пример
erer344rкеПВРМИHD5r54687rt8743ge56t5g54ф456
Букв больше на 1