1) даны х у z напишите программу для вычисления значения выражений: 1 а= x+y-z / x2+ 2 2 a= 5*2x-z(дробь)3+у2 - id855622420220116 от bogdanka1503p08ifa 16.01.2022 02:06

Question

Информатика: 1) даны х у z напишите программу для вычисления значения выражений: 1 а= x+y-z / x2+ 2 2 a= 5*2x-z(дробь)3+у2 2 : найдите длину окружности и площадь круга заданного радиуса 3: велосипедист едет с постоянной скоростью а км/ч за сколько минут он проедет расстояние в s

bogdanka1503p08ifa · Accepted Answer

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

MOGZ ответил