Написать программу умножения двух чисел, используя только операцию сложения

@irk · Регистрация: 16.04.2010

Author24 — интернет-сервис помощи студентам

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

Pascal

var
    i,n,m,t,k:integer;
function SR(k:integer):real;
begin
t:=t+k;
end;
begin
write('введите первое число ');
readln(n);
writeln('введите второе число ');
readln(m);
k:=0;
for i:=1 to m do
      sr(n);
 
writeln('произведение= ',t);
end.

зарание спасибо

Добавлено через 2 часа 19 минут
в итоге сама придумала,если кому надо-пользуйтесь

Pascal

var  n,m,t,k:real;
function SR(k,t:real):real;
begin
if (k=0) or (t=0) then sr:=0    else
sr:=(sr((k-1),t))+t;
 
end;
begin
write('введите первое число ');
readln(n);
writeln('введите второе число ');
readln(m);
writeln('произведение= ',sr(n,m));
end.

	25.02.2012, 22:24