Регистрация
Глглолл
31.03.2021 10:11
Информатика
Есть ответ 👍

Sub Лист4_Кнопка1_Щелчок()
Dim y As Integer, x As Integer
x = InputBox("vvedi x")
If x < 10 Then
y = x * x
Else
If 0 <= x <= 10 Then
y = Sqr(x)
Else
y = -x
End If
MsgBox "y=" & y
Cells(1, 1) = "Дано:"
Cells(2, 1) = "x" = Cells(2, 2) = x
Cells(3, 1) = "Вычислить:"
Cells(4, 1) = "y" = Cells(4, 2) = y
End If
End Sub
Проверьте Это система уравнения.

243
431
Посмотреть ответы 1

Ответы на вопрос:

TreYsYer
TreYsYer
4,4(66 оценок)

Program From2To10;

var

n2: Longint;

n10, m, i: Integer;

begin

Write('n2 = ');

ReadLn(n2);

n10 := 0;

m := 1;

while n2 <> 0 do

begin

i := n2 mod 10;

n10 := n10 + i * m;

m := m * 2;

n2 := n2 div 10;

end;

WriteLn('n10 = ', n10);

end.

Объяснение:

n2 - исходное число в двоичной записи

n10 - число в десятичной записи

m - 2 в степени номер разряда цифры

i - очередная цифра

Популярно: Информатика