Задание 1.
Алёша₋баскетбол,плавание
Вася-волейбол,теннис
Серёжа-футбол,велоспорт
Задание 2.
Петя-баскетбольная
Гена-волейбольная
Дима-гимнастическая
Вова-легкая атлетика
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
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.
<u>Примеры</u>
Введите строку: Это 12+32/16t/7+3.1415 тест
В строке букв меньше иных символов
Введите строку: И это 14+7 равно 21 тоже тест
В строке букв больше иных символов
30 div 12 = 2
30 div 12<5 -> d:=2
30 mod 12 = 6<9
Значение d будет равно 2
Ответ 2.2
1. Два мальчика переплывают на другой берег.
2. Один мальчик остаётся, один возвращается.
3. Солдат переплывает на другой берег.
4. Оставшийся мальчик переплывает за товарищем.
5. Два мальчика переплывают на другой берег.