Написать программу для нахождения произведения двух целых чисел х и у без использования...

Question

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

Answer 1

Program a1;
var x,y,s: integer;
begin
read (x,y);  
write(x,'*',y,'=');  
while x>0 do 
 begin 
    If ((x mod 2) <>0) then s:=s+y; 
    x:= x div 2;  
   y:=y+y;
 end;
write(s);
writeln();
readln();
end.
Русский способ умножения

Comments

спасибо большое :3

---

Если честно, то можно проще...
program a1;
var i,y,x,rez:integer;
begin
read(x,y);
for i:=1 to y do
rez:=rez+x;
writeln(rez);
end.