Sub Ex()
Dim Y() As Integer, X() As Integer
Dim i As Integer, n As Integer
Range(Cells(1, 2), Cells(100, 2)).ClearContents
i = 1
Do While Len(Cells(i, 1).Value) <> 0
i = i + 1
Loop
n = i - 1
ReDim Y(1 To n), X(1 To n)
For i = 1 To n
Y(i) = Cells(i, 1).Value
X(i) = Y(i) + i
Cells(i, 2).Value = X(i)
Next i
End Sub
Предполагается, что данные располагаются в колонке А, начиная с ячейки А1
В колонку B будет выведен результирующий массив.
Признак конца считывания - пустая ячейка в колонке А
Тут не как не помочь попробуй через шифт
Var
i,y,x:integer;
begin
writeln (введите x );
y:=20;
if x:=5 then y:=y*x;
writeln (`y =' ,y);
<span>end.</span>
Всё верно.
4-a(1 рисунок)
3-б(2 рисунок)
2-в(3 рисунок)
На этапе 5-9 класса всё достаточно просто. Следует просто подставлять x в функцию, чтобы получить её значение. Рассмотрим функцию "б".
Если x=9, y=1
Если x=-9,y=-1
Если x=3, y=3
Если x=-3, y=-3
Разумеется, ни одна из представленных функций не может проходить через начало координат, так как на ноль можно делить только в JS.
И так далее.
Функция "в" является симметричной функции "б", так как отрицательна.