tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Ввести три действительных
Ввести три действительных числа 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). вычисленные значения выдать на печать
Emulov
3 24.05.2019 17:40
5
Ответы
zulfiya22
20.06.2020 14:39
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.
Получилось немного сложнее, чем я ожидал. :)
Если что-то непонятно, пиши. :)
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Lyrryface
22.04.2020 18:29
Перевести код з Паскаля в Питон var i,n:integer; f:boolean;a1,a2:real; begin f:=true; read(n);read(a1); for i:=2 to n do begin read(a2); if a2 =a1 then f:=false; a1:=a2;...
timati06blacstar
22.04.2020 18:29
Создать на Паскаль программу, которая выводит сначала все отрицательные числа, а затем все положительные из заданого массива, состоящего из случайных целых чисел в...
stanislavvolk8
22.04.2020 18:28
Илья записал IP-адрес школьного сервера на листке бумаги и положил его в карман куртки. Мама случайно постирала куртку вместе с запиской. После стирки Илья обнаружил...
bogodist68
24.04.2020 19:49
Написать программу для решения следующей задачи. N чертят наколдовали M яблок. Определить: 1. Сколько яблок досталось каждому чертенку, если они разделили их поровну....
alevtina1991268
24.04.2020 19:46
Алгоритм с ветвлением - это алгоритм, в котором... 1.присутствие всех возможных операций в одном алгоритме 2.одни и те же операции выполняются многократно. 3.операции...
Winxsori
24.04.2020 19:44
3)Як видалити аркуш? 4)Як переймувати аркуш?...
ЛитвиновGLEB
17.03.2019 17:20
Скорость передачи данных через adsl-соединение равна 256000бит/с. передача файла через данное соединение заняла 16 секунд. определить размер файла в кбайт. если можно...
Saveliy111
17.03.2019 17:20
Подсчитайте объём информации в словах ; название словаря ,составитель ,издательство...
ArseniiB1
17.03.2019 17:20
Написать программу которая выводит таблицу значений функции y=|x+2| диапозон изменений аргумента от -4 до 4. шаг 0,5....
RownBitter
17.03.2019 17:20
Какой набор символов будет выведен в результате работы следующей программы? function f(x: string; a: byte): string; begin if a =3 then f: =copy (x,1,a) else f: =f(copy(x,2,a),a-2);...
Популярные вопросы
Літературні пам ятки доби відродження ...
1
У чому комічність сцени, зображеної в оповідані товстий і тонкий?...
3
решить лабороторную работу...
2
бақытсыз жамал романындагы қанша кейіпкер бар соның барлығына мінездеме...
3
В Кестені толтырыңдар.Улы өсімдіктерДәрілік өсімдіктер...
3
Зачем акацуки красят ногти...
2
Болашақта қандай роботтарды ...
1
Задание 1.Определите причину движения растений (таксисы, тропизмы,...
2
до 0,5 моль натрій гідроксиду додали розчин хлоридної кислоти масою...
3
1. Қытайда ежелгі мемлекеттер қай дәуірде,қандай өзеннің бойында...
2
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.
Получилось немного сложнее, чем я ожидал. :)
Если что-то непонятно, пиши. :)