Напишите программу, которая вводит два целых числа и находит их произведение, не ис пользуя операцию умножения. Учтите, что числа могут быть отрицательными. ( Паскаль)
Напишите программу, которая вводит два целых числа и находит их произведение, не ис пользуя операцию умножения. Учтите, что числа могут быть отрицательными. ( Паскаль)
Гость
Ответ(ы) на вопрос:
Гостьvar a, b, i, p: integer;
begin
writeln('Введите два целых числа');
readln(a, b);
p := 0;
for i := 1 to abs(b) do
p := p + abs(a);
writeln('Произведение = ', p);
end.
Не нашли ответ?
Похожие вопросы