Письмо - 100 г
Посылка - 5 кг
Телеграмма - 50 г
Бандероль - 500 г
Дядя Фёдор получил:
Писем - 8 шт.
Посылок - 3 шт.
Телеграмм - 7 шт.
Бандеролей - 1 шт.
Кот Матроскин получил:
Писем - 3 шт.
Посылок - 1 шт.
Телеграмм - 3 шт.
Бандеролей - 1 шт.
Пёс Шарик получил:
Писем - 0 шт.
Посылок - 3 шт.
Телеграмм - 0 шт.
Бандеролей - 4 шт.
Вся почта, доставленная Печкиным одного вида (кол-во):
Писем - 8+3+0=11 шт.
Посылок - 3+1+3=7 шт.
Телеграмм - 7+3+0=10 шт.
Бандеролей - 1+1+4=6 шт.
Вся почта, доставленная Печкиным одного вида (вес):
Писем - 100*11=1100 г
Посылок - 5*7=35 кг
Телеграмм - 50*10=500 г
Бандеролей - 500*6=3000 г
(см. объяснение)
Объяснение:
Программы написаны на языке PascalABC.NET 3.8 сборка 2899.
Задача №1:
##
ReadString.ForEach(procedure(x)->print(x))
Задача №2:
##
power(Integer.Parse(ReadString[::-1]),2).Print;
Задача №3:
##
var n: integer := ReadInteger;
print('На лугу пасётся '+n);
case n of
1: print('корова.');
2..4: print('коровы.');
5..9: print('коров.');
end;
Задача №4:
##
'В нашем саду растут 20 яблонь и 15 груш.'.Replace('20','35').Replace('груш','яблонь').Replace('яблонь','груш',1).Print;
Задание выполнено!