Найти частное от деления нацело N на K, а также остаток от этого деления

@Vlad220994 · Регистрация: 18.05.2011

Author24 — интернет-сервис помощи студентам

Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления.

@Казанский · 04.10.2011, 11:12

Напишите, как Вы видите алгоритм, а мы реализуем его Через оператор Do While

@Сасун · 05.10.2011, 13:55

Вот код.

Visual Basic

Sub macros()
n = InputBox("Укажите N")
k = InputBox("Укажите K")
Do Until n < 0
i = i + 1
n = n - k
Loop
MsgBox "Частное: " & i - 1 & Chr(13) & "Остаток: " & n+k
End Sub

Тестировал, работает.

@Vlad220994 1 / 1 / 1 Регистрация: 18.05.2011 Сообщений: 73
		1
	Найти частное от деления нацело N на K, а также остаток от этого деления 04.10.2011, 09:57. Показов 4068. Ответов 2 Метки нет (Все метки) Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления. 0

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	04.10.2011, 11:12	2
	Напишите, как Вы видите алгоритм, а мы реализуем его Через оператор Do While 0

	05.10.2011, 13:55