Free Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Free Pascal Напечатать "столбиком" квадраты всех целых чисел от 10 до В 1.напечатать "столбиком" квадраты всех целых чисел от 10 до В ( значение В вводится с клавиатуры) 2. найти среднее арифметическое всех целых чисел от А до В ( А и В вводится с клавиатуры) https://www.cyberforum.ru/ free-pascal/ thread559632.html	Файл последовательного доступа: поиск книги Free Pascal нужно решить задачу... по мне она ультрасложная... учусь в техническом ВУЗе( не ради информатики шёл) помогите пожалуйста... Составить программу, помогающую найти читателю нужную книгу в...
Free Pascal Найти периметр n-угольника https://www.cyberforum.ru/ free-pascal/ thread559519.html Выпуклый n-угольник задан координатами своих вершин (в порядке обхода по часовой стрелке. Найти: а) периметр n-угольника; б) площадь n-угольника.	Free Pascal Динамика. Помогите решить задачу!! В метрополитене есть возможность приобрести проездной на месяц и весь месяц ездить бесплатно. Однако, проездной рассчитан на одного человека, и нужно определять, когда по... https://www.cyberforum.ru/ free-pascal/ thread559454.html
Free Pascal Динамические структуры данных. Линейные списки. Дан список А, состоящий из записей: первое поле – символ, второе – адрес следующего элемента. Составить программу, которая переворачивает список А, т.е. изменяет ссылки в этом списке так, чтобы его...	Free Pascal SchoolPak паскаль. Задача по типизованих файлах. Задача по типизованих файлах. 1) Заданный файл, содержащий номера работников учреждения. Указывается фамилия работника, его инициалы и номер телефона. Ввести фамилию и имя с терминала. Отыскать... https://www.cyberforum.ru/ free-pascal/ thread559374.html
Free Pascal Строки. Расположить слова данного предложения в порядке возрастания числа букв в словах https://www.cyberforum.ru/ free-pascal/ thread559325.html Расположите слова данного предложения в порядке возрастания числа букв в словах Добавлено через 6 часов 45 минут буду очень признательна!!	Подскажите, в чем ошибка? [Команда odd(x)] Free Pascal У меня возникла проблема с командой odd(x). Вот здесь: http://pas1.ru/integer - прочитал про эту команду. Она возвращает значение true, если x – нечетное число, и false – если четное, т.е. является...
Free Pascal Вычислить площадь треугольника по координатам его вершины https://www.cyberforum.ru/ free-pascal/ thread559247.html №1 Вычислить площадь треугольника по координатам его вершины. №2 найти произведение: (a +1/1!)(a +1/2!)(a +1/3!)...(a -1/n!) для заданных a и n.	Free Pascal найти оптимальное количество разбиений https://www.cyberforum.ru/ free-pascal/ thread559093.html есть программа поиска решения интеграла методо трапеции симпсона и прямокгольника.программа рабочая и считает правильно.нужно только прописать чтобы программа сама находила оптимальное количество...
Free Pascal помогите решить...Тема: Динамические структуры данных. Линейные списки. Дан список А, состоящий из записей: первое поле – целое число, второе – адрес следующего элемента. Составить программу для вычисления количества отрицательных значений списка.	Free Pascal Подпрограммы. Найти среднее арифметическое средних чисел каждой тройки помогите решить задание... Даны две тройки вещественных чисел. В каждой тройке все числа различные. Найти среднее арифметическое средних чисел каждой тройки (средним назовем такое число в тройке,... https://www.cyberforum.ru/ free-pascal/ thread559048.html

H@ker

19 / 19 / 17

Регистрация: 25.04.2012

Сообщений: 138

26.04.2012, 23:18

Даны целые числа X,Y,Z. Вычислить MAX(X+Y,XYZ). Вычислить MIN(X,Y,Z X-Y) - Free Pascal - Ответ 2960738

26.04.2012, 23:18. Показов 9935. Ответов 1

Метки (Все метки)

Сообщение было отмечено как решение

Решение

Pascal

Program z3;
     Uses Crt;
     Var x,y,z:integer;
     Begin
     Clrscr;
     WriteLn('Введите числа: ');
     Readln(x,y,z);
     z:=xyz;
     y:=x+y;
     if z<y then
     Writeln('Наибольшее из аргументов: ', y)
     else
     Writeln('Наибольшее из аргументов: ', z);
     ReadLn;
     End.

А во втором уточните, пожалуйста, какие именно числа сравниваются.

Вернуться к обсуждению:
Даны целые числа X,Y,Z. Вычислить MAX(X+Y,XYZ). Вычислить MIN(X,Y,Z X-Y) Free Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.04.2012, 23:18

Готовые ответы и решения:

Даны целые числа A, B, C: вычислить значение выражения x
Здравствуйте. Буду благодарен за ответ Даны целые числа A, B, C Вычислить x =...

Вычислить y=min(a,b+c)+max(ac,b)+min(a2,c)
Даны целые числа a, b, c. Вычислить у-сумму. y=min(a,b+c)+max(ac,b)+min(a2,c) ????

Дано x, y, z. Вычислить max(a, min(b, c)
Напишите пожалуйста код

Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно
Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно; при...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.04.2012, 23:18

Помогаю со студенческими работами здесь

Даны целые числа а, b, с. Вычислить в-сумму у = min (a, b + c) + max (ac, b)-min (a2, c)
Даны целые числа а, b, с. Вычислить в-сумму у = min (a, b + c) + max (ac, b)-min (a2, c). Как эту...

Процедура: Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)*min(a,b))+max(min(a,b),min(b,c))
Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)*min(a,b))+max(min(a,b),min(b,c)) с...

Условные операторы: даны три вещественных числа, вычислить max(x+y+z, xyz)
Буду благодарен( Составить программу с использованием условных операторов. Даны три вещественных...

Даны целые числа X,Y,Z. Вычислить MIN (X,Y, X-Y)
Даны целые числа X,Y,Z. Вычислить MIN (X,Y, X-Y). Очень прошу помочь Добавлено через 1 минуту...

Наверх