«4»: Ввести два целых числа, найти их произведение, не используя операцию...

Question

«4»: Ввести два целых числа, найти их произведение, не используя операцию умножения. Пример: Введите два числа: 4 15 4*15=60

Answer 1

Ответ:

Используй цикл for

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.