реализовать арифметические операции

[Avrora_R]

Требуется на паскале реализовать операции сложения, вычитания, умножения и деления только лишь одним сложением. Цифры любые. Пример: 20-2 <=> 20+(-2), 20*2 <=> 20+20.
Помогите, пожалуйста, это сделать

[Serge_Bliznykov]

числа исключительно целые? Деление тоже целочисленное? С остатком от деления что делать?
да и вообще, мне не очень понятно, что значит "реализовать операцию деления одним сложением" ?! результат какой должен получится?
допустим, дано: 100 : 3
что должна выдать программа?

p.s. Вы путаете цифры и числа - это разные вещи..

[whatever]

Сообщение от Serge_Bliznykov

допустим, дано: 100 : 3

n:=100;
d:=3;
while (n>0) do
begin
  n:=n+(-d);
  count:=count+1;
end;

Может так? Хотя непонятно, что делать с отрицательными. Или, что еще хуже, с разнозначными.

А вообще, очередное задание от преподавателя, которому заняться нечем. Практического применения этому занятию не вижу. Даже асемблерные языки делить умеют (или нет? что-то забыл...)

[Avrora_R]

Я думаю, числа исключительно целые и деление целочисленное. Это задание от преподавателя, самой не до конца понятно..мне уже бы что-нибудь написать и сдать) Я опечаталсь, не цифра, а числа

[Serge_Bliznykov]

Аврора, обратите внимание на код в пост #3 - это для деления...
для разности и умножения сами в таком же стиле напишете по образцу?

[Avrora_R]

Serge_Bliznykov, да, спасибо большое))