Составить программу на паскале для вычисления произведения A и B, чтобы она не могла пользоваться командой умножения, a и b натуральные числа

Question

Исидора

25 марта, 13:47

+3

Ответы (1)

Знаете ответ на вопрос?

Нил · Answer 1

var

a, b, sum, index: word;

begin

sum : = 0;

read (a, b) ;

for index : = 1 to b do sum + = a;

write (sum) ;

end.