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

2

Ответы и объяснения

2013-12-19T15:57:45+04:00
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.
2013-12-19T16:22:17+04:00
Var
a,b,n,i:integer;
begin
read(a,b);
for i:=1 to b do
n:=n+a;
writeln(n);
end.


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