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

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


textual

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

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.

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

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



Похожие ответы
  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. Дана последоВательность чисел. найти В ней наименьшее число. Входные данные. задано сначала число n (количестВо чисел В последоВательности), а затем n чисел. Все числа - из диапазона Integer. n?100 Выходные данные. ВыВедите наименьшее число. пример Входного файла 7 4 2 5 -1 4 6 2 пример Выходного файла -1

  1. Написать программу на зыке Pascal для обработки матриц. Размерности матрицы и ее элементы должны вводиться с клавиатуры. Полученная матрица и другие элементы должны выводиться на экран. Определить произведение элементов в тех столбцах, которые не содержат элементов кратных 5.

  1. Никак не могу додуматься как сделать :с

  1. Вычислить произведение С погрешностью e=0,1e-3 , при r=0,12

  1. Доброе время суток! Хотелось бы получить помощь в следующей задаче: Пользователь вводит размерность и элементы одномерного массива натуральных чисел. Найти произведение элементов, у которых сумма цифр кратна 4 и факториал первого элемента массива. Вспомогательный алгоритм оформите в виде рекурсивной процедуры или функции в отдельный модуль. А именно с задачей "Найти произведение элементов, у которых сумма цифр кратна 4". Если кто-то поможет, то буду очень благодарен за Вашу помощь.Добавлено через 1 час 8 минут

  1. Найти на заданном отрезке [N;M] число с максимальным произведением цифр. Паскаль

  1. Нужно считать числа из файла и присвоить эти значения переменным. например 25.1 3.5 1 2.3

  1. помогите решить задачьку в паскале Найти сумму целых положительных четных чисел, вводимых с клавиатуры. Технические условия. Количество чисел N, которые будут введены с клавиатуры,задают в начале программы (4

  1. Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах.