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

Question

Информатика

Апросинья

29 марта, 18:48

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

+5

Ответы (2)

Знаете ответ?

Вилена · Answer 1

Var

a, b, n, i:integer;

begin

read (a, b) ;

for i:=1 to b do

n:=n+a;

writeln (n) ;

end.

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

Павша · Answer 2

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.