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

0 голосов
104 просмотров

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


Информатика (65 баллов) | 104 просмотров
0

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

0

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

Дан 1 ответ
0 голосов
Правильный ответ

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

(142k баллов)
0

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

0

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

0

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

0

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

0

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

0

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

0

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

0

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

0

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

0

..