Ответ:

1.

number=int(input())

print(number//10)

print(number%10)

2.

number=int(input())

number = number%10 * 10 + number//10

print(number**2)

3.

n=int(input())

if n==1:

   slovo="корова"

elif 1<n<5:

   slovo="коровы"

elif 5<=n<10:

   slovo="коров"

print("На лугу пасётся",n,slovo)

4.

garden = 'В нашем саду растут 20 яблонь и 15 груш.'

garden=garden.replace("20","35").replace("яблонь",'"')

print(garden)

Примечание: вы видимо упустили в последнем задании что то

Ответ:

(см. объяснение)

Объяснение:

Программы написаны на языке 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;

Задание выполнено!