Предложите, кто может, свои варианты решения: как написать программу, выполняющую умножение двух чисел (для вещественного и целочисленного типов), используя при этом:
1. Оператор сложения.
2. Оператор вычитания.
3. Оператор присваивания.
4. Условный оператор и оператор goto.
Заранее спасибо.
ЗЫ. прилагаю свой вариант:
var a,b,z:integer;
function umn(x,y:integer):integer;
var s,i:integer; label 1;
begin
s:=-y;
i:=x;
1: s:=s+y;
if x>0 then
begin
x:=x-1;
goto 1;
end;
if x<0 then
begin
x:=x+1;
goto 1;
end;
if i<0 then s:=-s;
if x=0 then umn:=s;
end;
begin
readln(a,b);
z:=umn(a,b);
writeln(z);
end.