Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
alaaaaaaaaa
14.08.2021 23:24 •
Информатика
Составить программу в turbo pascal! надо! надо найти значение y. 4х+10 если х> 0 ; 8+х если х< 4 это система уравнений
Показать ответ
Ответ:
minpro
19.07.2020 10:16
Не совсем понял условие
но возможно так:
var
X,Y1,Y2:integer;
begin
Write('Введите X: '); Readln(X);
Y1:=4*X+10; Y2:=8+X;
if X>4 then writeln('Y1=',Y1);
if X<0 then writeln('Y2=',Y2);
if (X>0) and (X<4) then writeln('Y1=',Y1,' Y2=',Y2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Лаура2205200
20.12.2021 20:29
Инфознайка отправил закадированное сообщение из 5 чисел. однако при передаче данных одно число было потерянно. в результате полученное сообщение выглядело так: 3,,65537....
egorpolozuk
26.07.2021 02:33
C++ нужно визуально среди чисел а, b, с существует хотя бы одна пара взаимно противоположных (имеют разные знаки)....
Mraleex
21.02.2022 20:41
Сколько раз будет выполнено тело цикла? а) for i in range(15): s = s + 1б) for i in range(10, 15): s = s + 1в) for i in range(-1, 1): s = s + 1г) for i in range(1, 1): s...
HGRM
04.11.2022 18:36
Дан массив: a={2,9,5,8}. После сортировки массива (сортировка методом простого выбора) — порядок убывающий. Заполни таблицу....
Nastya2oo3
10.10.2021 08:29
Процесс написания программы никогда не включает в себя а) процесс откладки б)редактирование текста программы в)изменение свойств параметров компьютера...
vseznaika29
21.11.2020 12:21
Пригодность алгоритма для решения определённого класса дискретность результативность определённость массовость...
sofiamytsak
02.06.2022 03:16
Чем моделирование отличается от модели?...
Еля2005
02.06.2022 03:16
Каково назначение устройств хранения информации в компьютере ?...
Animashka11
21.07.2021 02:55
Көмек тез комек тез- ...
genalysenko98
08.04.2020 07:46
Графическая модель твоего любимого урока очень...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
но возможно так:
var
X,Y1,Y2:integer;
begin
Write('Введите X: '); Readln(X);
Y1:=4*X+10; Y2:=8+X;
if X>4 then writeln('Y1=',Y1);
if X<0 then writeln('Y2=',Y2);
if (X>0) and (X<4) then writeln('Y1=',Y1,' Y2=',Y2);
end.