Дано некоторое число составьте программу которая выводит какое это число положительное...

Question

Дано некоторое число составьте программу которая выводит какое это число положительное или отрицательное если оно положительное уменьшить в 2 раза а в другом случае взвести в квадрат.

Answer 1

По моему такая задача уже несколько раз была здесь.
//Pascal
var a:integer;
begin
  readln(a);
  if a>0 then writeln('Положительное ', a/2)
     else
         if a<0 then writeln('Отрицательное', a*a);<br>  if a=0 then writeln('0 - не положительное и не отрицательное число');
end.

Comments

Аналогично комментарию к первому ответу

---

Исправил, действительно надо внимательнее читать условие

---

И как тогда правильно будет,не особо поняла?

---

Последний вариант еще сообщает положительное число или отрицательное

Answer 2

//Pascal ABC.NET v3.1 сборка 1172

Var
 a:real;
begin
 readln(a);
 if a>0 then writeln('Положительное, ',a/2) else
  if a<0 then writeln('Отрицательное, ',sqr(a)) else<br>   writeln('0');
end.

Пример ввода:
-12
Пример вывода:
-, 144

Comments

"выводит какое это число положительное или отрицательное"

---

У Вас - не выводит