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

Question

Тося

13 июля, 21:04

+4

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