Question

Напишите программу, которая получает два целых числа и находит их произведение, не используя операцию умножения. Учтите, что числа могут быть отрицательными. Через цикл WHILE!!!!

Answer 1

Var a,b,c:integer;
begin
writeln('введите два числа');
readln(a,b);
c:=0;
while a<>0 do begin
c:=c+b;
a:=a-1;
end; writeln('ответ : ',c);
end.