ММ
Максим Мухамедзянов

помогите с кодом программы для задачи вычислить частное р и остаток q от деления 2-х натуральных чисел r,t, не используя операцию деления

Ал
Алексей

Вычитай из делимого делитель, пока разность не станет меньше делимого. Количество вычитаний равно частному, а последняяя разность - остатку от деления.
Используй цикл while.

Ко
Константин

int q = 0; // остаток от деления
int p = 0; // частное
int t = 11; // делитель
int r = 99; //делимое

while (true) {
if (r < t) break;
else {
q = r - t;
r = r- t;
p++;
}
}
System.out.println ("Остаток от деления: " + q + " Частное: " + p);
}

вроде так...

Похожие вопросы
Привет) помогите пожалуйста написать программу на С++. Вычислить сумму квадратов первых N нечетных натуральных чисел.
Некоторое натуральное число при делении на 9 даёт остаток 1,а при делении на 3-остаток 2. Какое это число? помогите
Найдите остаток и неполное частное при делении многочлена x^6-4x^4+x^3-2x^2+5 на x+3. Ребят, помогите (
Разложить вектор x по векторам p, q, r. х ( -13, 2, 18), р (1, 1,4), q (-3, 0, 2), r( 1, 2, -1).
помогите НАПСИАТЬ АЛГОРИТИМ ДЛЯ РЕШЕНИЯ ЗАДАЧИ, КОТОРАЯ ПОЗВОЛЯЕТ НАЙТИ ПРОИЗВЕДЕНИЕ И СУММУ 2-Х ЧИСЕЛ И ВОЗВРАЩАЕТ ЧИСЛО
Помогите решить задачу по алгебре! Сумма чисел-36,а одно из них в 2 р больше другого.
Помогите написать программы на языке Pascal, заранее благодарен. 1)Ввести два натуральных числа a и b, на промежутке от 1 до N найти все числа, которые приделении на a дают остаток b, а при делении на b дают в остатке a. 2)Ввести одномерный массив Y(N) и выдать его на печать. Вычислить произведение тех элементов массива, которые при округлении до ближайшегоцелого дают тот же результат, что и при отбрасывании дробной части, и заменить этимпроизведением значение максимального элемента. Выдать на печать преобразованный массивили сообщение о невозможности преобразования
Помогите с задачей по программированию Нужно описать процедуру или функцию, которая заменяет в дереве T все отрицательные элементы на их абсолютные величины (ТЭД=real). Нужен именно код Pascal
Прошу помощи с Паскаль! program z2;Var c,d,k,t,P1,P2 : integer;R : real;Procedure PRO (n, a : integer; Var P: real);Var i:integer;BeginP:=1;For i:=1 to 10 doP:=P*(i-a);End;BeginWriteln ('vv 2 cgisla');Readln (c,d);Writeln ('вв 2 ч >= 2');Readln (k,t);PRO(k,c,P1);Pro(t,d,P2);R:=2*(P1/P2);Writeln (R);End.1) Восстановить условие, постановку и алгоитм.2) Переписать программу заменив процедуру функцией
помогите написать программы на языке паскаль 1. Написать программу, которая записывает в файл n чисел.2. Написать программу, которая считывает из файла числа и находит их сумму.3. Написать программу, которая считывает из файла числа и находит минимальное значение.