Задание:
Написать программу перемножающую целые числа без использования операции «*». Паскальабс
Решение:
P.S. Благодарность и лучший ответ не помешает.var a, b, c, i: integer; beginread (a,b); c: =0; for i: =1 to b doc: =c+a; write (c,'); end.
Знаете другой ответ?