Запиши программу на языке Паскаль для:
y = {0, если x ≤ 0
{x, если 0 < x ≤ 1
{x², если x > 1
(y:3:0)
Запусти программу и введи значение x=19
portal1234
2
25.05.2020 20:01
0
Другие вопросы по теме Информатика
машунька0811
29.05.2021 21:10
Evelinahomytova
29.05.2021 21:37
идинахер89
17.12.2020 19:28
LOL2202
17.12.2020 19:27
SchoolWolf
04.08.2019 01:00
роги1
04.08.2019 01:00
likunya
24.12.2020 11:42
rizhik68
08.05.2020 11:48
хочузнать2018
08.05.2020 11:48
Популярные вопросы
- Когда монголы уничтожили переяслав и чернигов?...
3 - А) саян подтянулся 15 раз, что на 4 больше мираса. сколько раз подтянулся мирас?...
2 - Письмо губернатору, чтобы вы хотели улучшить в своём городе?...
1 - Вывести номер 1 и последнего кратного 5 pascal abc...
2 - Позязя! за 8 минут самолет, двигаясь с одинаковой скоростью, пролетел 96 км....
2 - 35 .напишите эссе на тему крепкая дружба вот план 1тезис 2докозательство 3вывод...
1 - 5клас що слід зробити з кладом ,щоб знайти приміщення для його зберігання?...
3 - Вкакой стороне от наблюдателя находится радуга и солнце? радуга - это мираж -...
2 - Как характеризуют их ответы учителю? в. ю. драгунский «что любит мишка»....
1 - Землистый 4 однокореных слов и 4 формотивных слов...
3
Var
a:integer;
Begin
Readln(a) ;
Begin
If a<=0 then
Write('y=0') end;
Begin
If a=1 then
Write('y= ', a) end;
Begin
If a>1 then
Write('y= ', sqr(x)) end;
End.