Оставить программу для вычисления значения функции по одной из формул:
(паскаль)
Марина0506
1
12.11.2019 09:29
1
Другие вопросы по теме Информатика
даринасид85
13.09.2019 08:00
ekzz1
13.09.2019 08:00
отличник703
13.09.2019 08:00
kokoulina68
05.06.2019 01:40
alaska122
05.06.2019 01:40
тлрп
14.12.2021 08:52
UAola
14.12.2021 08:48
Snoowker
14.12.2021 08:48
замира59
14.12.2021 08:47
Популярные вопросы
- Цена товара была увеличена на 6% , спустя некоторое время была уменьшена на...
1 - Турист на лодке проплыл против течения 10 км и по течению 18 км , затратив...
3 - Напишите краткое содержание рассказа рей бредбери космонавт ....
2 - Основание прямой призмы служит равнобедренный треугольник с углом 120 градусов...
3 - Какое проверочное слово к слову опасный...
1 - При какой температуре кислород имеет плотность ρ= 1,2 кг/м3 . добавление газа...
2 - На сколько наибольшее из данных чисел больше наимееьшего: 47,53,58,19,41,45,...
2 - Какое окончание в слове приказ, в словосочетании согласно приказу или приказа?...
3 - Утверждение о том, что материальное тело покоится или движется равномерно...
3 - Удевочки есть 20 mg сколько тенге не хватает чтобы купить тетрадь за 40 тенге...
1
var
x, y: Double;
begin
Write ('X = ');
ReadLn (x);
if x < -2 then
y := Abs (x) + 2
else if x > 2 then
y := x + 1
else
y := 1;
WriteLn ('Y = ', y);
ReadLn;
end.