Найти произведение чисел, если они имеют одинаковый знак, иначе определить их сумму - Turbo Pascal

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

Даны числа X и Y отличные от нуля. Найти произведение этих чисел,если они имеют одинаковый знак,иначе определить их сумму.

Код к задаче: «Найти произведение чисел, если они имеют одинаковый знак, иначе определить их сумму - Turbo Pascal»

textual
var
  x, y, res : real;
begin
  repeat
    write('введите x и y отличные от нуля: ');
    readln(x, y)
  until (x <> 0) and (y <> 0);
  if x * y > 0 then writeln('произведение: ', x * y)
  else writeln('сумма: ', x + y);
  readln
end.
Эта работа вам не подошла?

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

7   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ