Getyumsas
6 год назад
Написать программу если x меньше 0, то найти x^2. Иначе x уменьшить в 2 раза.
ОТВЕТЫ
Lafovagzh
Jul 10, 2019
{PASCAL}
var x:real;
begin
write(Введите число: );
readln(x);
if xlt;0 then x:=sqr(x);
else x:=x/2;
writeln(x:4:1);
end.
var x:real;
begin
write(Введите число: );
readln(x);
if xlt;0 then x:=sqr(x);
else x:=x/2;
writeln(x:4:1);
end.
139
Смежные вопросы:
