Введите два любых числа и найдите их произведение, используя только операцию сложения.

Question

Марьина

13 декабря, 03:15

+5

Ответы (1)

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

Фатьян · Answer 1

Var

s, i, b, a:integer;

begin

Writeln ('Введите два целых числа') ;

readln (a, b) ;

s:=0;

for i:=1 to b do s:=s+a;

writeln (s) ;

end.