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*
Комментарий*

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

natalili32
Виктория Нина
zdl2008
Isaeva_Marin1010
Николаевич1033
Павел
Ingakazakova
Nadezhdachizhikova7968
PetrovDrozdov1785
sharikplushelen
maslprod
sadkofamily61
Евгения-Валерий
club-pushkin
VadimovichSvetlana622