оператор цикла. помогите...

s maximus · 19 фев 2010

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

Alex@ Gordon · 19 фев 2010

var
a,b: integer;
c: real;
begin
writeln ('Введите 1 число');
read (a);
writeln ('Введите 2 число');
read (b);
c:=(a/1)/(1/b);
writeln (c);
end.