troyasport
?>

В нашем доме 29 семей. 13 семей выписывают газеты, 10 семей - журналы. Лишь 5 семей - и журналы, и газеты. Сколько семей не выписывают ничего?

Информатика

Ответы

tatarinova-51
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите строку:');
  var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count;
  var m:=s.Length-n;
  if m>n then Writeln('В строке букв меньше иных символов')
  else
    if m<n then Writeln('В строке букв больше иных символов')
    else Writeln('В строке поровну букв и иных символов')
end.

Примеры
Введите строку: Это 12+32/16t/7+3.1415 тест
В строке букв меньше иных символов

Введите строку: И это 14+7 равно 21 тоже тест
В строке букв больше иных символов

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

В нашем доме 29 семей. 13 семей выписывают газеты, 10 семей - журналы. Лишь 5 семей - и журналы, и газеты. Сколько семей не выписывают ничего?
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Николаевич1033
Kelena190533
Евгения-Валерий
legezin
Nikolaevna Malika1511
Gatina
kirycha-2000719
yelenaSmiryagin
vasilevich-F
korj8
Жуков219
Yevgenii1423
qwe54344
Artur-62838
Ingakazakova