Даны два целых числа A и B (Aamp;lt;B). Найти во сколько

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

Задать свой вопрос
Дарина Боцько
Что нужно сделать?
Нина Желтоногова
что нужно найти?
Игорян Хасаншин
Цикл можно использовать В паскаль написать)
Юра Пьянченков
"Даны два целых числа A и B" сделать-то с ними что нужно?
Павел Фатуллин
Даны два целых числа A и B (A
София
Простите)
1 ответ
Var
A,B,n:integer;
Begin
n:=0;
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
While Bgt;=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 Bgt;=A do
   B:=B-A;

WriteLn(B);
End.

Геннадий Цицарев
Спасибо)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт