Помогите, пожалуйста PaskalABC
Приложения:
![](https://st.uroker.com/files/5c8/5c8b704b135b6024af8f5c606473edc7.jpg)
BobbyFresnel:
Во-первых Pascal ABC. Во-вторых, а где его брать?
Ответы
Ответ дал:
0
Ответ:
var a,b:Real;
begin
b:=5.4;
write ('a = ');
Readln(a);
if a<0 then Write('a = ',a*a) else
if a>2 then Write('a = ',sqr(a)*a) else
Write('a = ',(b*b-a)/(3+a))
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
7 лет назад