Ответы на вопрос:
program raf105;
var x,y: real;
begin
write('x = ');
readln(x);
if x < = 0
then y: = power(x,2) - 0.3;
if (0 < x) and (x < = 1)
then y: = 0;
if x > 1
then y: = power(x,2) - x;
writeln('y = ',y);
end.
pascalabc 3.4.2Популярно: Информатика
-
danmin44422.04.2023 08:03
-
лошарикуни24.05.2023 00:25
-
Danya29421.05.2023 12:02
-
Oor109.02.2020 11:20
-
АлинаМалинка11629.11.2020 16:48
-
Polina01102004028.11.2020 16:37
-
Данил932319.10.2020 23:28
-
bektursun11.09.2022 03:00
-
Владислава300028.09.2020 11:40
-
длвшуаблв21.01.2022 14:15