Question

Дано 4 числа. Среди чисел есть отрицательные? Помогите решить эту задачу в паскаль через if-then-else

Answer 1

var

a,b,c,d : real;

haveNegative : boolean;

begin

haveNegative := false;

readln(a,b,c,d);

if a < 0 then

   haveNegative := true;

if b < 0 then

   haveNegative := true;

if c < 0 then

   haveNegative := true;

if d < 0 then

   haveNegative := true;

if haveNegative then

   writeln('Cреди данных чисел есть отрицательное!')

else

   writeln('Среди данных чисел отрицательного нет!');

end.

Answer 2

Для решения этой задачи в Pascal, где даны 4 числа, и нужно определить, есть ли среди них отрицательные числа, вы можете использовать конструкцию `if-then-else`. Вот пример кода, который решает эту задачу:

program CheckNegatives;
var
  num1, num2, num3, num4: integer;
begin
  write('Введите первое число: ');
  readln(num1);

write('Введите второе число: ');
  readln(num2);

write('Введите третье число: ');
  readln(num3);

write('Введите четвертое число: ');
  readln(num4);

if (num1 < 0) or (num2 < 0) or (num3 < 0) or (num4 < 0) then
    writeln('Среди введенных чисел есть отрицательные числа.')
  else
    writeln('Среди введенных чисел нет отрицательных чисел.');

readln;
end.

Этот код запрашивает у пользователя ввод четырех чисел, а затем использует оператор `if` с логическим оператором `or`, чтобы проверить, есть ли среди них хотя бы одно отрицательное число. Если хотя бы одно из чисел отрицательное, программа выводит сообщение о том, что среди введенных чисел есть отрицательные числа. В противном случае программа сообщает, что среди чисел нет отрицательных чисел.