1. Информатика
  2. Запиши программу на языке

Запиши программу на языке паскаль для: y=0,еслиx≤0 x,если 01 запусти программу и введи значение x=-17. (y: 3: 0) число выведенное на экран:

Оpiggyugrs Оpiggyugrs    2   29.09.2019 12:10    0

Ответы
жанель67 жанель67  09.10.2020 02:42

begin //PascalABC.NET

 var x, y: real;

 Read(x);

 if x <= 0 then Print(0)

 else Print(x > 1 ? x * x : x)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
дильназСпецназ дильназСпецназ  02.03.2020 19:25
Проверьте правильность выполнения задания, питон 3.7. все на фото...
strees1 strees1  02.03.2020 19:25
8.У исполнителя бета две команды которым присвоены номера :1.прибавь b 2. Умножь на 2 известно что программа 21212 переводит число 11 в число 130.определите значение b​...
кроп1 кроп1  29.08.2019 02:00
Составить программу присваивания элементам массива значение 5 информатика...
димасик138 димасик138  04.03.2021 11:28
Дан фрагмент программы структуры выбор, в которой определяется число больше 5 или нет. Напечатай пропущенную 6 строку.​...
SuperDusia SuperDusia  04.03.2021 11:30
я в информатике как валинок ​...
ep1cook1e ep1cook1e  04.03.2021 11:30
Сор . Нарисуйте схематический образ вашего робота?2. Перечислите функции Вашего робота, который заменяет человека при выполнении некоторых действий в повседневной жизни.3. Примеры...
ALSY0504 ALSY0504  29.04.2020 14:13
А) Достарың заңды тұрғыда дұрыс жасады ма? Неге? ә) Мұнда қандай да бір құқықбұзушылық орын алды ма? б) Интернеттегі жекеменшік деген ұғымды қалай түсіне сіңдер? Оның иесі кім?...
якура якура  20.01.2020 17:28
Script document.location.href= ; как его удолить из пк скажите вирус это или что...
alinakim3 alinakim3  20.01.2020 17:27
Эссе на тему если я буду программистом...
samnsk100617 samnsk100617  20.01.2020 17:26
Выберите три прикладные программы на компьютере и заполните таблицу. например, ms word, ms excel, ms powerpoint. для ана- лиза можете выбрать другие программы. рова- ором...

Популярные вопросы