К кормушке прилетели воробьи, синицы, снегири и вороны. Мальчик посчитал количество птиц...

0 голосов
121 просмотров

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


Информатика (16 баллов) | 121 просмотров
Дан 1 ответ
0 голосов

// 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.


(5.8k баллов)