Запиши программу на языке Паскаль
Приложения:
![](https://st.uroker.com/files/f2b/f2b64d01c6023ef524ff16314101e2c5.png)
ledovskayaanastasia7:
ребят,кто из интернет урока: будет 0
Ответы
Ответ дал:
1
Объяснение:
Var x,y: real;
begin
write('введите х:
readln(x);
if(x<=0) then y:=0
else if(x<=1) then y:=x
else y:=x*x;
writeln(y:3:0);
end.
Приложения:
![](https://st.uroker.com/files/135/1354413e9b9db8b8050025cd3e5e9007.jpg)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад