Ввести два числа А и С. - Найти произведение этих чисел, используя только операцию сложения. - Вычислить АС, используя только операцию умножения

@Alisher2222 · Регистрация: 18.05.2013

Ввести два числа А и С.
- Найти произведение этих чисел, используя только операцию сложения.
- Вычислить А^c, используя только операцию умножения.

@proft · 21.05.2013, 11:26

на форме 1 кнопка.

Visual Basic

Private Sub Command2_Click()
Cls
a_1 = InputBox("Vvesti 1 chislo - À")
a_2 = InputBox("Vvesti 2 chislo - Ñ")
b_1 = 0
For i = 1 To a_2
    b_1 = b_1 + a_1
Next i
Print "Ïðîèçâåäåíèå äâóõ ââ¸ä¸ííûõ ÷èñåë, áåç èñïîëüçîâàíèÿ óìíîæåíèÿ ="; b_1
b_2 = 1
For i = 1 To a_2
    b_2 = b_2 * a_1
Next i
Print "Ïåðâîå ÷èñëî -À â ñòåïåíè - Ñ, ñ èñïîëüçîâàíèåì óìíîæåíèÿ ="; b_2
End Sub

@Alisher2222 1 / 1 / 0 Регистрация: 18.05.2013 Сообщений: 93 Записей в блоге: 1
		1
	Ввести два числа А и С. - Найти произведение этих чисел, используя только операцию сложения. - Вычислить АС, используя только операцию умножения 21.05.2013, 10:00. Просмотров 2355. Ответов 1 Метки нет (Все метки) Ввести два числа А и С. - Найти произведение этих чисел, используя только операцию сложения. - Вычислить А^c, используя только операцию умножения. 0

Опции темы

Ввести два числа А и С. - Найти произведение этих чисел, используя только операцию сложения. - Вычислить АС, используя только операцию умножения

Решение