Написать программу если x меньше 0, то найти x^2. Иначе x уменьшить в 2 раза.
Написать программу если x меньше 0, то найти x^2. Иначе x уменьшить в 2 раза.
Гость
Ответ(ы) на вопрос:
Гость{PASCAL}
var x:real;
begin
write('Введите число: ');
readln(x);
if x<0 then x:=sqr(x);
else x:=x/2;
writeln(x:4:1);
end.
Не нашли ответ?
Похожие вопросы