1. составьте программу в pascal abc. даны три числа. найти сумму двух наибольших из них. 2. составьте программу в pascal abc. для данного вещественного x найти значение следующей функции f, принимающей вещественные значения: f(x)=(2-х)/x2,если x> 0, иначе f(x)=6-х3 3. составьте программу в pascal abc. даны два числа. найти их сумму, разность и произведение.

181

470

Посмотреть ответы 2

Ответы на вопрос:

drr2

Информатика

4,5(70 оценок)

1. var a, b, c: integer; begin write('введите через пробел три числа: '); readln(a, b, c); if (a > b) then if (b > c) then write('сумма двух наибольших чисел: ', a + b) else write('сумма двух наибольших чисел: ', a + c) else if (c > a) then write('сумма двух наибольших чисел: ', c + b) else write('сумма двух наибольших чисел: ', b + a) end. 2 . var x, f: real; begin write('введите значение x: '); readln(x); if (x > 0) then f : = (2 - x) / (x * x) else f : = 6 - (x * x * x); writeln('значение функции при данном x: ', f) end. 3 . var a, b: integer; write('введите через пробел два числа: '); readln(a, b); writeln('сумма чисел: ', a + b); writeln('разность чисел: ', a - b); writeln('произведение чисел: ', a * b) end.

правда14

Информатика

4,8(10 оценок)

Sub m2() cells.clear dim n as integer, i as integer, min as integer n = inputbox("n(> 5) = ") cells(1, 1).value = "n = " + str(n) redim a(1 to n) for i = 1 to n a(i) = inputbox("a(" + str(i) + ")") next i cells(2, 1).value = "исходный массив" range(cells(3, 1), cells(3, = a min = a(1) for i = 2 to n if a(i) < min then min = a(i) next i cells(4, 1).value = "min = " + str(min) cells(5, 1).value = "полученный массив" for i = n - 4 to n a(i) = min next i range(cells(6, 1), cells(6, = a end sub

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.