Напишите программу, перемножающую целые числа без использования операции «*». Например,...

Question

Напишите программу, перемножающую целые числа без использования операции «*». Например, при умножении целых чисел n*m число m надо сложить само с собой n раз (m+m+…+m). На языке Паскаль.

Answer 1

Var m,n,i:integer;

begin
writeln('введите число ');

readln(n);
writeln('на что умножить? ');
readln(m);
for  i:=1 to m-1 do n:=n+n;
writeln(n);
end.

Comments

ошибся

---

var m,n,i,n1:integer;

begin
writeln('введите число ');

readln(n);
n1:=n;
writeln('на что умножить? ');
readln(m);
for i:=1 to m-1 do n:=n+n1;
writeln(n);
end.