Дан текст из строчных латинских букв и цифр ,определить чего больше в этом тексте букв или цифр. Тема "множества" (Паскаль АВС)
Дан текст из строчных латинских букв и цифр ,определить чего больше в этом тексте букв или цифр.
Тема "множества" (Паскаль АВС)
Гость
Ответ(ы) на вопрос:
Гость// 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
Не нашли ответ?
Похожие вопросы