Написать программу которая,считает остаток от деления не используя mod.

Question

Написать программу которая,считает остаток от деления не используя mod.

Answer 1

var a,b:integer;

begin

write ('Введите делимое: ');

readln (a);

write ('Введите делитель: ');

readln (b);

repeat

a:=a-b;

until a writeln ('Остаток: ',a)

end.

Comments

Спасибо

Answer 2

Написать программу которая,считает остаток от деления не используя mod.
Вот ответ

---

Comments

Неправильно

---

Правильно.

---

Ввожу это и пишет ошибку