Вопрос от посетителя:
ввести два целых числа ,найти их произведение не используя операцию умножения.
Илюха отвечает:
var
a,b: integer;
c: real;
begin
writeln (‘1’);
read (a);
writeln (‘2’);
read (b);
c:=(a/1)/(1/b);
writeln (c);
end.
ввести два целых числа ,найти их произведение не используя операцию умножения.
var
a,b: integer;
c: real;
begin
writeln (‘1’);
read (a);
writeln (‘2’);
read (b);
c:=(a/1)/(1/b);
writeln (c);
end.