Вывести произведение введённых чисел - Pascal ABC

Формулировка задачи:

Напишите программу, которая вводит два целых числа и находит их произведение, не используя операцию умножения. Учтите, что числа могут быть отрицательными. Входные данные Входная строка содержит два целых числа. Выходные данные Программа должна вывести произведение введённых чисел. Примеры входные данные 6 12 выходные данные 72 входные данные -7 15 выходные данные -105

Код к задаче: «Вывести произведение введённых чисел - Pascal ABC»

textual
var
  a,b,i:integer;
  r:real;
begin
  read(a,b);
  r:=0.0;
  if a>0 then
    for i:=1 to a do r:=r+b
  else
    for i:=-1 downto a do r:=r+b;
  if ((a<0) and (b>0)) or ((a>0) and (b<0)) then
    begin
      if r>0 then r:=-r;
     end else
      if r<0 then r:=-r;
  writeln(r:0:0);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 3.769 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы