Написать программу для нахождения произведения двух целых чисел х и у без использования операции умножения. Паскаль
Ответы
Ответ дал:
3
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.
Русский способ умножения
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.
Русский способ умножения
neversayoung:
спасибо большое :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.
program a1;
var i,y,x,rez:integer;
begin
read(x,y);
for i:=1 to y do
rez:=rez+x;
writeln(rez);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
8 лет назад