Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
galinapetrovic
22.12.2020 10:03 •
Информатика
Составьте программу для вычисления значения функции: y= |x|, ecли x< 1; x1/2, для всех остальных x.
Ответ:
trokhymukjulia
01.10.2020 05:49
var x,y:real;
begin
writeln('Vvedite x');
readln(x);
if x<1 then y:=abs(x) else y:=x*1/2;
writeln(y);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Lissa000
16.08.2020 11:57
Ребус со словом калькулятор поже зарание поже...
вопрос210
15.12.2020 05:10
Написать программу на паскале по строкам: например вводишь любую фразу, к примеру asdfghjkl, и нужно убрать несколько символов, если убрать первый и второй, то получится...
брат2006кирилл
15.12.2020 05:10
Какая решается по следующей программе: program test var a, b, c: integer begin readln( a,b) c: =(a+b)×(b-a) writln c...
kartoshechka49
05.08.2021 12:53
Из двух целочисленных массивов одинаковой размерности сформировать третий массив, каждый элемент которого равен меньшему из соответствующих элементов данного массива....
alex0the0human
09.06.2022 06:46
Исполнитель черепашка выполняет программу: для k от 1 до n выполнить вперёд k направо 90 кц ввести n и определить расстояние между начальным и конечным положением...
katya2007
09.06.2022 06:46
Система нахождения компьютерных вирусов...
annajeon58
06.05.2020 07:02
Опишите один из памятников семи чудес света....
камидь
01.02.2021 23:01
Решите с графиков, систему уравнений {x-y=0{x-2y=2...
putin12344
20.02.2021 17:43
Көрнекті жазушы қай жылы қайтыс болған?...
асаляя
07.06.2020 22:12
Угол АОВ-развернутый Внутри него проведен луч ОС так, что угол АОС в 9 раз больше угла сов. Найдите эти уты/46/...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var x,y:real;
begin
writeln('Vvedite x');
readln(x);
if x<1 then y:=abs(x) else y:=x*1/2;
writeln(y);
end.