Question

Помогите что здесь не так (даны два числа x и y найти положительное) Program e5; var x,y:intenger; begin writlen('Найдём положительное число'); writeln('Введите x'); readln(x); if(x>0)then ('x-положительное число') else if (x<0) then ('x-отрицательное число') writeln ('Введите y'); readln (y); if (y>0) then ('y-положительное') else (y>0) then ('y-отрицательное число') end.

Answer 1

Ответ:

во первых перед вторым if else не нужен по моему, во вторых при проверке y условие стоит if (y>0) а выводит, якобы оно отрицательное

Answer 2

В предоставленном коде есть несколько ошибок:

1. Во-первых, опечатки в типе переменной: `intenger` должно быть `integer`.

2. Во-вторых, некоторые операторы и конструкции не используются правильно. Например, оператор `writeln` и использование условий `if-then-else`.

3. Также не хватает вывода результатов на экран.

Исправленный и объясненный код будет выглядеть так:

Program e5;
var
  x, y: integer;
begin
  writeln('Найдём положительное число');
  
  writeln('Введите x');
  readln(x);
  
  if x > 0 then
    writeln('x - положительное число')
  else if x < 0 then
    writeln('x - отрицательное число');
  
  writeln('Введите y');
  readln(y);
  
  if y > 0 then
    writeln('y - положительное число')
  else if y < 0 then
    writeln('y - отрицательное число');
end.

В этом исправленном коде:

- Исправлены опечатки в типе переменной `integer`. - Добавлены операторы `writeln` для вывода результатов на экран после проверок условий. - Использованы правильные конструкции `if-then-else` для проверки положительных и отрицательных чисел `x` и `y`.

Теперь код должен корректно определять, являются ли введенные числа положительными или отрицательными.