Другие вопросы по теме Информатика
Iro4kat
27.05.2020 14:59
1236811
26.08.2019 14:30
Dancerebuclic2017
24.09.2021 14:42
ERESYUR
04.03.2021 16:52
AnyaFashion
26.05.2019 18:50
Wild044Rose
26.05.2019 18:50
RADIUM24
26.05.2019 18:50
yuliya91
23.12.2020 15:07
Популярные вопросы
- ежегодно на нашей планете отмечаются международные экологические дни один из них...
1 - о каком историческом событии идет речь в ромео и джульетте 2) Кто у автора, является...
1 - 3 Выпишите, раскрывая скобки, ряд, в котором все слова с НЕ пишутся раздельно,В...
2 - На трёх тарелках лежало 8 пирожных после того как два пирожных со второй тарелки...
2 - Молибден Mo имеет кубическую объемноцентрированную структуру. Атомы молибдена расположены...
3 - Найдите общую площадь поверхности козла диагональю 2 дм....
3 - Найдите решение уравнения.б) 4 - 2y - (5 – 3y) = y — 1 - (у - 8)д) у – 1+ (у — 2)...
2 - 1. Изобразите при кругов Эйлера отношение между отношение между множествами,если...
2 - Два туристка вышли навстречу друг друга: Нара из Бишкека со средней скорости 2км/ч...
2 - Заранее благодарю. 1) Які вправи з розвитку зв’язного мовлення характеризуються...
2
Число, выведенное на экран 144
Объяснение:
var
x, y: real;
begin
Write('Введите значние x: '); ReadLn(x);
if x <= 0 then y := 0 else if x > 1 then y := sqr(x) else y := x;
WriteLn('y(', x, ') = ', y);
end.