Даны m, n, k. Найти a = min(m+n+k, mnk) надо решить в паскале(условный оператор)
10-11 класс
|
var
a,m,n,k:real;
begin
readln(m,n,k);
if (m+n+k)<(m*n*k) then
a:=m+n+k
else
a:=m*n*k;
writeln(a);
end.
Другие вопросы из категории
10011,101 2→Х10
для обчислення добутків виду (х-1)(х-2)(х-3)...(х-n)
(P.S скласти програму и блок схему)
матрицы).
2) написать процедуру которая находит сумму всех элементов на побочной диагонали и кол во отрицательных элементов ( всей матрицы)
Читайте также
Дана матрица размерностью nxn найти минимальный элемент среди элементов расположенных над главной диагональю матрицы. Найти квадрат разности среди арифметических значений элементов матрицы ,находящихся ниже и выше главной диагонали
заданного числа Z,то найти сумму четных элементов,иначе- произведение нечетных элементов.
Друзья,очень нужна ваша помощь,пожалуйста,если Вы решили мне помочь-отпишитесь. Заранее спасибо!
Дан массив O ( K ). Заменить все положительные числа квадратом числа,а отрицательные модулем.
Задача вторая.
Дан массив R ( 6 ) .Найти сумму и произведение всех элементов массивов.
Через Qbasic
ОТ CLS ДО ЕND
А)сумму элементов массива
Б)количество отрицательных элеметов
В)вывести номера элементов массива кратных 3
1)Дан массив Р(15).Найти сумму всех отрицательных элементов с четными индексами.Полученный результат вывести на экран.
2)Ввести с пульта оператора массив МАС1 семь целых чисел. Переписать из МАС1 в МАС2 элементы значения которых положительные,в МАС3 элементы значения которых отрицательные. На пульт оператора вывести значения МАС1,МАС2,МАС3