Значение переменной х ввести с клавиатуры. переменной у присвоить значение 5. вывести на экран информацию «знач.х»+5= «итог. сумма». 2. переменной х присвоить значение 7. переменной р присвоить значение, равное квадрату х. вывести значения переменных х и р (через запятую). значение х увеличить на х. переменной р присвоить значение, равное корню квадратному из х. вывести значения переменных х и р (через запятую). diktant 2 1. значение переменной х присвоить в программе. при неотрицательном значении х переменной у присвоить значение, равное корню квадратному из х. в противном случае, переменной у присвоить значение, равное квадрату х. вывести на экран значение х и значение у. 2. двум произвольным переменным присвоить произвольным образом соответственно 2 числа. двум другим переменным присвоить значения, равные тангенсам двух предыдущих переменных. вывести на экран значения всех переменных, а так же сумму значений двух последних переменных. сделать пож

👇

Увидеть ответ

Ответ:

Dashacolod

11.02.2023

Задание 1
write(x);
y:=5
Задание 2
x:=7
p:=x(в квадрате)

4,4(94 оценок)

Открыть все ответы

Ответ:

р0000

11.02.2023

Function IsPrime(n As Integer) As Boolean
    Dim found As Integer
    found = n Mod 2 = 0
    Dim p As Integer
    p = 3
    Do While Not found And p * p <= n
        found = n Mod p = 0
        p = p + 2
    Loop
    IsPrime = Not found
End Function

Sub main()
    Randomize Timer
    Dim n As Integer, i As Integer, k As Integer
    n = 100 + Int(Round(899 * Rnd))
    ReDim a(1 To n) As Integer
    ReDim b(1 To n) As Integer
    i = 0: k = 0
    MsgBox n
    Do While i < n
        i = i + 1
        a(i) = 1000 + Int(Round(8999 * Rnd))
        If IsPrime(a(i)) Then
            k = k + 1
            b(k) = a(i)
        End If
    Loop
    Rows("1:1000").Clear
    Range(Cells(1, 1), Cells(n, 1)) = a
    For i = 1 To k
        Cells(i, 1) = a(i)
        Cells(i, 2) = b(i)
    Next i
    If k > 1 Then 'Сортировка второй колонки, так красивее
        Dim r As Range
        Set r = Range(Cells(1, 2), Cells(k, 2))
        r.Sort Range("B1")
    End If
    For i = k + 1 To n
        Cells(i, 1) = a(i)
    Next i
End Sub

4,7(19 оценок)

Ответ:

Nookrod

11.02.2023

IP-адрес (адрес; является словообразовательной полукалькой английского IP address, буквенной аббревиатурой от англ. Internet Protocol Address «адрес Интернет-протокола») — уникальный сетевой адрес узла в компьютерной сети, построенной на основе стека протоколов TCP/IP.

В сети Интернет требуется глобальная уникальность адреса; в случае работы в локальной сети требуется уникальность адреса в пределах сети. В версии протокола IPv4 IP-адрес имеет длину 4 байта, а в версии протокола IPv6 IP-адрес имеет длину 16 байт.

В 4-й версии IP-адрес представляет собой 32-битное число. Удобной формой записи IP-адреса (IPv4) является запись в виде четырёх десятичных чисел значением от 0 до 255, разделённых точками, например, 192.168.0.3.

Объяснение:

4,6(27 оценок)

Это интересно:

Образование-и-коммуникации

06.10.2021

Как решать кубические уравнения: подробное руководство...

Хобби-и-рукоделие

06.04.2022

Как разгладить мятую бумагу: простые методы и советы...

Кулинария-и-гостеприимство

16.11.2022

Как собрать идеальный пляжный обед?...