Составить программу паскаль нахождения произведения двух натуральных чисел без использования операции умножения.

1

Ответы и объяснения

2014-02-16T00:59:23+00:00
Uses crt;
var
a,b,c:integer;
begin
 writeln('Введите первое число');
 readln(a);
 writeln('Введите второе число');
 readln(b); 
     repeat   
c:=c+1; 
until c=a*b;   
writeln('Произведение чисел= ',c) 
 end.