Ответ:
begin
//PascalABC.NET
var x, y: real;
Read(x);
if x <= 0 then Print(0)
else Print(x > 1 ? x * x : x)
end.
Похожие вопросы и ответы:
- Задание 2. Составить программу, выводящую на экран…
- Ученик каменщика укладывает…
- 1. Прикоснувшись положительно заряженной стеклянной палочкой…
- Помогите, пожалуйстаНапишите программу управления черепахой…
- Написать код на Python Напишите программу, которая переводит…
- составьте числовое выражение и найдите его значение при…
- Проектор полностью освещает экран А высотой 140 см,…
- Число А в 3 раза больше числа В,к числу В прибавили 10 и…
- в игре «Русское лото» из мешка случайным образом выбираются…
- Задание 5. Провести исследование чисел. Дано четырехзначное…
- Дано двузначное число. Сумма цифр в 4раза меньше самого…
- артём задумал число у которого четвёртая часть на 12 меньше…
- Высота прямоугольной трапеции опущенная из вершины тупого…
- В окружность вписаны правильный шестиугольник и квадрат.…
- Преобразуйте квадрат двучлена в многочлен стандартного вида:…