Дан текст из строчных латинских букв и цифр ,определить чего больше в этом тексте букв...

Question

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

Comments

помогите пожалуйста очень надо

---

с объяснением!

Answer 1

// 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
В тексте больше букв

Comments

Более того, РЕКОМЕНДОВАНО именно так писать.

---

мне нужно для школы,а там паскаль не такой

---

Это надо было все в условии писать. Мы не телепаты, чтобы Ваши мысли читать.

---

ну сколько прошу ,все пишут обычно а не так

---

Не всегда Вам должно "везти". Пора бы научиться и корректно свои просьбы формулировать!

---

я не собираюсь,устраивать с вами пертурбацию ,по поводу кто что не так корректно сформулировал.Написали бы ,что пишите только так и все или хотя бы просто спросили какая версия.

---

Вы меня хотите поучить Правилам, что, как и когда писать нужно? Т.е. перед тем как Вам давать ответ, надо еще Вашего согласия испросить на то, в какой форме, на какой версии языка и на каком уровне программирования его писать? Не слишком ли много Вы на себя берете?

---

Я имела ввиду ,что как умный и интеллегентный человек просто написали бы ,что вы пишите программы пишите на таком уровне и ничем помочь е можете,а не устраивали здесь дискуссию

---

Смешно, правда. Вот всех до Вас столько месяцев устраивало, а для Вас нужен "особый подход". Давайте заканчивать пререкания. Если я Вам говорю, что Ваше условие задания позволяет двать ответ на любом уровне программирования языка ПаскальABC, то это так и есть.

---

..