Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
NastyaAnaNastya
03.11.2022 14:47 •
Информатика
Составить программу : есле х больше 5 , но меньше 50 то найти n=24x^2+0.5x иначе выислить n=12x-2x^2 .
Показать ответ
Ответ:
DestroyMe
19.08.2020 09:46
Var
x: Integer;
n: Real;
begin
WriteLn('Введите х='); ReadLn(x);
if (x > 5) and (x < 50) then begin
n:= 24*sqr(x) + 0,5 * x end
else begin
n:= 12 * x - 2 * sqr(x);
end;
WriteLn('Отвеt n=', n);
ReadLn;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ersultanplay
22.06.2020 07:50
можете сделать информатику 11 задания это...
gnastasiya5
13.07.2020 00:37
ПО ИНФОРМАТИКЕ Построить все 4 фигуры в одной программе, используя команду WHILEВсе размеры выбираются на ваше усмотрение....
artyom11111112
23.09.2022 16:41
№3.Дан фрагмент электронной таблицы. Какое число должно быть в ячейке A2, чтобы построенная после выполнения вычислений диаграмма по значениям диапазона ячеек A2:D2 соответствовала...
nightlovell15
21.01.2022 20:06
Как удалить навсегда файл. nomedia в телефоне?...
duwie
21.01.2022 20:06
Составте алгоритм дня школьника информатека...
Asala213
21.01.2021 20:42
Запишите число, которое будет выведено в результате работы программы: var s, n: integer; begin s : = 25; n : = 5; while 500 s*s do begin s : = s - 1; n : = n + 2 end; writeln(n) end....
den4ik143
04.07.2020 01:23
Што не так с++ ( #include using namespace std; int main() { double ab,ad,ax,ay,bx,by,dx,dy,cx,cy,o1,o2,d1,d2,v; if(ax,ay,bx,by,dx,dy,cx,cy 100); cin ax ay; cin bx by; cin cx cy; cin...
pro100rak2
03.03.2021 20:21
Cell Tower is an interesting daily puzzle game, https://www.andrewt.net/puzzles/cell-tower/. Here we consider a simplified version. You are given 8×8 square with one character in each...
79954236
09.04.2022 09:19
До іть, будь ласка, розв язати 2 задачі на мові Python!...
Ясте
15.07.2022 21:26
Какой тип адреса обеспечивает доставку кадров внутри одной и той же сети (между двумя компьютерами а. MAC б. IP с . DNS name д. адрес не нужен, устройства будут общаться в любом случае...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x: Integer;
n: Real;
begin
WriteLn('Введите х='); ReadLn(x);
if (x > 5) and (x < 50) then begin
n:= 24*sqr(x) + 0,5 * x end
else begin
n:= 12 * x - 2 * sqr(x);
end;
WriteLn('Отвеt n=', n);
ReadLn;
end.