Написать программу если x меньше 0, то найти x^2. Иначе x уменьшить в 2 раза.

Question

Написать программу если x меньше 0, то найти x^2. Иначе x уменьшить в 2 раза.

Comments

на каком языке? паскаль?

---

окей напишу на паскале..

---

крч молчишь - как хочешь, не буду ничего делать, видимо тебе не надо

---

Так ты же сказал что напишешь на паскале я и жду

Answer 1

{PASCAL}
var x:real;
begin
write('Введите число: ');
readln(x);
if x<0 then x:=sqr(x); <br>else x:=x/2;
writeln(x:4:1);
end.