Ввести три реальных числа x, y, z . Вычислить q,w поформулам:q

Ввести три реальных числа x, y, z . Вычислить q,w поформулам:q = max(x y z, 3 z x, 2 (x + y + z));w = min(3 x y z , q/ 2). Вычисленные значения выдать на печать

Задать свой вопрос
Дарья Зехцер
необходимо решить в программе паскаль,пожалуйста помогите
Валерия Флусова
Что значит знак ""?
Нещеретняя Мила
так было в задании,я скопировал все как было
Арсений
выручи пожалуйста
Лариса Вайтова
спапсибо,а можешь еще посодействовать моему другу,я для тебя пришлю?
Илья
Давай
Таисия Храмоина
Определить делится ли на целое число x целое число y без остатка.Если делится, то разделить x на y и вывести его.
1 ответ
Program z1;
var
q,x,y,z,a,b,c,d,e:integer;
w:real;
begin
writeln('Введите x');
readln(x);
writeln('Введите y');
readln(y);
writeln('Введите z');
readln(z);
a:=x*y*z;
b:=3*z*x;
c:=2*(x+y+z);
d:=max(a,b);
e:=max(b,c);
q:=max(e,d);
writeln('Максимум',q);
w:=min(3*x*y*z,q/2);
writeln('Минимум',w);
end.

Получилось немножко труднее, чем я ожидал. :)
Если что-то непонятно, пиши. :)
Танечка Драге
спасибо,я для тебя позже еще одну отправлю задачку
Ксения
все вышло!!!
Альбина Точейкина
Отлично :)
Юрий Дец
Вычислить X = max(a + b + c, a + b c ,min(a b,2 a c))
Поденщиков Иван
program z1;
Виталя Пакостин
Не то написал
Fedetov Nikita
сможешь решить эти две?
Софья Ханянц
Да
Татьяна
В лс напишу
Мирослава Яковийчук
превосходно жду
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт