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

Question

Информатика

Вениамин

24 июня, 11:59

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

+2

Ответы (2)

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

Геруха · Answer 1

P. S. Благодарность и лучший ответ не помешает.

var a, b, c, i:integer;

begin

read (a, b) ;

c:=0;

for i:=1 to b do

c:=c+a;

write (c,' ') ;

end.

Терентий · Answer 2

Var

a, b, n, i:integer;

begin

read (a, b) ;

for i:=1 to b do

n:=n+a;

writeln (n) ;

end.

Надеюсь на Лучший ответ;)