Даны действительные числа x,y,z. Вычислить max (x+y+z,xyz).
10-11 класс
|
uses crt;
var x,y,z:real;
begin
read(x,y,z);
if x+y+z>x*y*z then
writeln(x+y+z)
else
writeln(x*y*z);
end.
uses crt;
var x,y,z,max: real;
begin
readln(x,y,z);
if x+y+z>x*y*z then writeln('max=x+y+z=',x+y+z);
if x+y+z<x*y*z then writeln('max=x*y*z=',x*y*z);
if x+y+z=x*y*z then writeln('x*y*z=x+y+z=',x*y*z);
end.
Другие вопросы из категории
нет, выведите сообщение об этом факте. СРОЧНО НАДО СЕГОДНЯ((((
Е +01?Ответ: У этих чисел разный
Читайте также
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
(x-1)(x-3)(x-7)...(x-63)/(x-2)(x-4)(x-8)...(x-64) (дробь)
Используя оператор: while
Не могу написать через данный оператор программу на паскаль, выходит всегда число 0. Прошу помочь мне :)
Даны
действительные числа х, у, и z. Вычислить
max (x + y + z, xyz).
(только пожалуйста напишите полное решение, а не кусок)
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
2. Дано десятичное число X=563. Представить его в ячейке.
3. Дано десятичное число X= -62. Представить его в восьмиразрядной ячейке.
4. Дана шестнадцатеричная запись числа X=FB32 в ячейке. Получить исходное число в десятичной системе.