Ответы
Ответ дал:
0
Var y,k:real;
Begin
Write('y = ');ReadLn(y);
if y > 0 then k:=y*y/2
else k-:=Abs(1.5*y*y);
WriteLn('k = ',k);
End.
Begin
Write('y = ');ReadLn(y);
if y > 0 then k:=y*y/2
else k-:=Abs(1.5*y*y);
WriteLn('k = ',k);
End.
Похожие вопросы
1 год назад
1 год назад
1 год назад
2 года назад
8 лет назад