1. Информатика
  2. Паскаль.даны дейсвительные

Паскаль.даны дейсвительные числа x,y,z.вычислить min2(x+y+z/2 , xyz)+1.

ЛюАниме ЛюАниме    1   18.05.2019 19:50    3

Ответы
rimakarapetyan12 rimakarapetyan12  12.06.2020 01:19

var x,y,z,res,a,b: real;

begin

write('Vvedite x = ');

readln(x);

write('Vvedite y = ');

readln(y);

write('Vvedite z = ');

readln(z);

a := x + y + z / 2;

b := x * y * z;

if (a < b) then res := a * a + 1;

else res := b * b  + 1;

writeln(res);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
frossbaf frossbaf  19.05.2020 19:42
Структуру сукупність даних, розміщених по рядках і стовпцях А) Таблиця Б) Малюнок В) Презентація Г) Проект...
Даня1681 Даня1681  19.05.2020 19:42
Определи основание системы счисления числа 1618....
annshirokikh annshirokikh  19.05.2020 19:39
Запиши программу на языке Паскаль. Вычисли сумму s=∑k=1nk+1k2+1, если значение n вводит пользователь. Если n=11, то вывод на экран (ответ округли до сотых)...
kodwaw kodwaw  19.05.2020 19:38
Напишите программу для решения примеров(Паскаль) а2+b2=c 35+45=80 (100-25)*2=150...
созданной созданной  01.03.2020 16:35
В языке за поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для логической операции «И» — символ «&».В таблице приведены...
полина2124 полина2124  01.03.2020 16:24
Составить математическую модель определения стоимости покупки состоящей из нескольких тетрадей и такого же количества обложек к ним....
Artem20032003 Artem20032003  12.09.2019 01:03
Вид информации, которую нельзя сохранить и передать....
Zlyka11 Zlyka11  12.09.2019 03:00
9класс. составить программу перевода количества сантиметров в метры и километры. (паскаль) чтобы, например, если ввести 100 см, то выдавалось бы 1 метр и 0,001 километр....
тата238 тата238  12.09.2019 03:00
Напишите программу на языке си. дана последовательность целых чисел и количество членов в последовательности. вычислите есть ли число 0 в поледовательности...
НезнайкаФдпун НезнайкаФдпун  12.09.2019 03:00
Превратить функцию в процедуру function koldel(n: integer): integer; var i,k: integer; begin k: =0; for i: =1 to n do if n mod i=0 then k: =k+1; koldel: =k; end; var...

Популярные вопросы