Даны два целых числа A и B (A<B). Определить во сколько раз A<B. Операциюделения не...

Question

Даны два целых числа A и B (A<B). Определить во сколько раз A<B. Операциюделения не использовать.Задача 2. Даны два целых числа A и B (A<B). Определить остаток от деления В на А.Операцию деления не использовать.

Comments

Что нужно сделать?

---

что нужно найти?

---

Цикл можно использовать В паскаль написать)

---

"Даны два целых числа A и B" сделать-то с ними что нужно?

---

Даны два целых числа A и B (A<B). Определить во сколько раз A<B. Операциюделения не использовать.Задача 2. Даны два целых числа A и B (A<B). Определить остаток от деления В на А.Операцию деления не использовать.

---

Простите)

Answer 1

Var
A,B,n:integer;
Begin
n:=0;
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
While B>=A do
   Begin
   B:=B-A;
   n:=n+1;
   End;
WriteLn(n)
End.





Var
A,B:integer;
Begin
Write('A = ');
ReadLn(A);
Write('B = ');
ReadLn(B);

While B>=A do
   B:=B-A;

WriteLn(B);
End.

Comments

Спасибо)