реализовать арифметические операции
Требуется на паскале реализовать операции сложения, вычитания, умножения и деления только лишь одним сложением. Цифры любые. Пример: 20-2 <=> 20+(-2), 20*2 <=> 20+20.
Помогите, пожалуйста, это сделать =)
Помогите, пожалуйста, это сделать =)
нужен лучший пример
Умножение:
Код:
program a1;
var a,b,i,mul:longint;
begin
readln(a,b);
for i:=a downto 1 do
mul:=mul+b;
write(mul);
end.
var a,b,i,mul:longint;
begin
readln(a,b);
for i:=a downto 1 do
mul:=mul+b;
write(mul);
end.
деление с остатком
program zzzzz;
var a,a1,b,i,di,mul,o:longint;
begin
readln(a,b);
if b=0 then begin write('ОШИБКА: на ноль делить нельзя'); halt; end;
a1:=a;
if a>b then begin
while a>0 do begin
a:=(-b)+a;
di:=di+1;
end;
end else begin write(0,' (ост. ',a, ' )'); exit; end;
o:=-(di*b)+a1;
if o=0 then write(di) else
write(di,' (ост. ',o, ' )');
end.
program zzzzz;
var a,a1,b,i,di,mul,o:longint;
begin
readln(a,b);
if b=0 then begin write('ОШИБКА: на ноль делить нельзя'); halt; end;
a1:=a;
if a>b then begin
while a>0 do begin
a:=(-b)+a;
di:=di+1;
end;
end else begin write(0,' (ост. ',a, ' )'); exit; end;
o:=-(di*b)+a1;
if o=0 then write(di) else
write(di,' (ост. ',o, ' )');
end.