Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дан текст из строчных латинских букв и цифр ,определить чего больше в этом тексте букв или цифр.
Тема "множества" (Паскаль АВС)

Ответ оставил Гость

// PascalABC.NET 3.0, сборка 1111
begin
  var s:=ReadLnString(Введите текст: );
  var na:=s.Where(x->x in [a..z]).Count;  // количество букв
  var nd:=s.Where(x->x in [0..9]).Count;  // количество цифр
  if na>nd then Writeln(В тексте больше букв)
  else
    if na    else Writeln(В тексте букв и цифр поровну)
end.

Тестовое решение:
Введите текст: the equation 3.546x^2+4.18x-4.1=0
В тексте больше букв