(см. объяснение)
Объяснение:
Программы написаны на языке 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;
Задание выполнено!
схема и объяснение снизу
program ufhcn;
var x, y, a, i, b: real;
uses crt;
begin
clrscr;
writeln('вводи число 1');
readln(i);
writeln('вводи число 2');
readln(x);
if (x> =0) then writeln('все в порядке')
else writeln('не правильная цифра');
if (i> =1) and (i< =13)
then writeln('число входит в ряд', x*i> =a)
else writeln('не входит ряд');
writeln('води число 3');
readln(a);
if (a> =0) then writeln('вводи число 4');
readln(b);
if (b> =0) then writeln('находим первый y= ', a*x*(i*i*i)+b*sqrt(x*i));
if (b< 0) then writeln('находим второй y= ', (sin(x)/cos(x))*(a-(x*
end.
начало
вводим переменную i
вводим переменную x
если x> =0 то
если нет если да
то нет. то далее
ввели интервал в переменную i
если (i> =1) и (i< =12) то
если нет. если да
то нет решения. то есть решение
вводим число 3
если (а> =0) то
вводим число 4
если (b> =0) то
y1= a*x*(i*i*i)+b*sqrt(x*i))
если (b< 0) то
y2= ', (sin(x)/cos(x))*(a-(x*
конец
короче объясняю.
ввёл 4 переменных
сделал так чтобы все вводимые были больше нули или равны ему чтобы легче было.
ввёл интервал i от 1 до 12
остальное решает уравнение поле ввода 4 переменных, если что-то не устроило пиши разберусь
Sub Swap()
Dim r As Range, A As Variant
Dim i As Integer, im As Double, n As Integer, t As Double
n = 15
Set r = Range(Cells(1, 1), Cells(1, n))
A = r
im = 1
For i = 2 To n
If A(1, i) > A(1, im) Then
im = i
End If
Next i
t = A(1, im)
A(1, im) = A(1, n)
A(1, n) = t
Set r = Range(Cells(2, 1), Cells(2, n))
r = A
End Sub
На лист в ячейки А1 - О1 заносим исходные 15 чисел
На этот же лист через проект помещаем макрос и запускаем.
Результат будет в ячейках А2 - О2
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)
Примечание: вы видимо упустили в последнем задании что то