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;
Задание выполнено!