Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
vmatveicheva
28.07.2022 13:44 •
Информатика
1. написать программу, вычисляющую значение функции y=x-24 2. написать программу, вычисляющую значение функции (y=f(x)) y=x-2, если x> 0, y=0, если x=0, y=x*x, если x< 0
Показать ответ
Ответ:
ПовелительницаCтихий
01.10.2020 16:16
Var x,y: integer;
begin write('Введите х: ');
readln(x);
y:=x-24
writeln(y);
end.
2)
var x,y: integer;
begin write('Введите x: ');
readln(x);
if x>0 then y:=x-2
else if x<0 then y:=x*x
else y:=0;
writeln(y);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
БЛОБ
17.05.2022 17:33
Синформатикой! надо бы составить блок-схему: если ласточки низко летают, то будет дождь . , ! добросовестно выберу лучший ответ!...
inpurple
30.06.2020 11:30
Що таке модель об єкта або явища ?...
TsenkerOksana
27.05.2022 23:45
Даны три вершины квадрата abcd: a(6; 8) b(6; 3) c(1; 3) на координатной плоскости нарисуй квадрат abcd, определи и запиши координаты четвертой вершины квадрата! ответ:...
malinkarinka599
10.03.2023 04:33
Найти сумму ряда с точностью ε=10-4 , общий член которого...
Legendary13
17.11.2020 19:21
Заполните таблицу пятью примерами искусственных информационных процессов, протекающих в системах. Биологические системы Технические системы Человек Животный мир Растительный...
sofiagnip
22.02.2023 14:31
3. Напишите уравнения возможныхреакциймеждужелезом и: Хлор, сера, соляная кислота, гидроксиднатрия. НитратНитрат калия, хлорид меди (II), Водород.серебро....
Бесполезная3
06.02.2023 16:41
Території сучасних Львівської, Івано Франківської і Тернопільської областей відповідає історико-географічному регіону...
Radmir5689
06.10.2021 17:26
Жазылым 1. «Роботтар адам орнын алмастырады. такырыыбында эссеЭссе кұрылымы мен дамуын сактап, көтерілген мәселе бойынша келісу келіспеу себептерін айкын керсетіп...
Kefir4ek
28.01.2021 13:09
1.Жазуучу Ш. Бейшеналиев жөнүндө айтып бер? 2.Азиз деген ким?Азиз кой кайтарганда эмнелерди көрдү? Ал боз ирикти кантип багынтты? 3.Кузундө койлорду эмнеге өткөзүштү?...
mileven353
10.01.2021 11:45
Почки раскрываются,шоколадные,с зелёными хвостиками,и на каждом зелёном клювике висит большая прозрачная капля.Возмёшь однк почку,разотрёшь между пальцами, и потом...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin write('Введите х: ');
readln(x);
y:=x-24
writeln(y);
end.
2)
var x,y: integer;
begin write('Введите x: ');
readln(x);
if x>0 then y:=x-2
else if x<0 then y:=x*x
else y:=0;
writeln(y);
end.