Y= {0 при x≤0
{x² при x>0
Запустить программу и выполнить при таких условиях:
1)при x= -2
Ответ:0
2)при x=2
Ответ: 4
Мне нужна программа,срочно
morre:
В PascalABC
Ответы
Ответ дал:
1
Var X,Y:real;
Begin
Write('x = ');ReadLn(x);
if x <= 0 then Y:=0
else Y:=X*X;
WriteLn('Y = ',Y);
End.
Begin
Write('x = ');ReadLn(x);
if x <= 0 then Y:=0
else Y:=X*X;
WriteLn('Y = ',Y);
End.
Вас заинтересует
3 месяца назад
11 месяцев назад
1 год назад
1 год назад