Ввести кількість зібраних грибів (від 1 до 100 років) і вивести його разом з наступним словом «гриб», «гриба» або «грибів».
Код делать в программе visual studoi 2017

1)

number_list = []

for i in range(4):

   number_list.append(int(input()))

print('максимальное число: ' + str(max(number_list)))

print('минимальное число: ' + str(min(number_list)))

2)

first_list = [int(input()) for n in range(3)]

second_list = []

for number in first_list:

   second_list.append(number)

first_list.sort()

if first_list == second_list:

   print('по росту .')

else:

   print('не по росту !')

3)

month_ask = str(input())

if month_ask in ['12', '1', '2', '01', '02']:

   print('Зима .')

elif month_ask in ['3', '4', '5', '03', '04', '05']:

   print('Весна .')

elif month_ask in ['6', '7', '8', '06', '07', '08']:

   print('Лето .')

elif month_ask in ['9', '10', '11', '09']:

   print('Осень .')

4)

number = str(input())

if len(number) == 3:

   print('Верно .')

else:

   print('Не верно .')

5)

number = str(input())

first_list = []

for n in number:

   first_list.append(n)

second_list = []

for i in first_list:

   second_list.append(i)

first_list.reverse()

print(first_list)

print(second_list)

if first_list == second_list:

   print('Верно .')

else:

   print('Не верно')

PascalABC.NET

#1

begin

 PartitionPoints(-10, 10, 20).Tabulate(p -> 5*(p**2) + 2*p).Println;

end.

#2

begin

 var A := ReadSeqIntegerWhile(p -> p <> 0).ToList;

 var x := ReadInteger('Считаем это число: ');

 A.Where(p -> p = x).Count.Println;

end.

#3

function IsNumberContainsDigit(number:integer; digit: char):boolean;

begin

 var stringnumber := number.ToString;

 if stringnumber.contains(digit) then IsNumberContainsDigit:=True else IsNumberContainsDigit := False

end;

begin

 var (a, b) := ReadInteger2('a, b: ');

 var rng := Range(a, b);

 rng.Where(p->IsNumberContainsDigit(p, '0')).Print;

end.

Объяснение: