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

Question

Информатика

Марка

6 июня, 09:38

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

+3

Ответы (1)

Знаете ответ на вопрос?

Мариамночка · 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.

Русский способ умножения