Question

К кормушке прилетели воробьи, синицы, снегири и вороны. Мальчик посчитал количество птиц каждого вида. Напишите программу, которая запрашивает четыре числа – количество птиц каждого вида, а затем сообщает общее число птиц у кормушки, дописывая к числовому значению слово «птица» в правильной форме. Например, 33 птицы, 11 птиц, 21 птица.
Входные данные: 4 натуральных числа А,В,C,D ( А,В,С,D <=100).
Выходные данные: сумма переменных А,В,C,D и слово «птица» с согласованным окончанием.

Answer 1

// PascalABC.NET 3.4, сборка 1766 от 25.08.2018

begin

var s:=ReadArrInteger('Количество воробьев, синиц, снегирей и ворон',4).Sum;

Println(s,s mod 100 in [11..14]?'птиц':s mod 10=1?'птица':s mod 10 in [2..4]?'птицы':'птиц');

end.