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

Question

Маркел

26 сентября, 22:05

+5

Ответы (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.

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