сервис вопросов и ответовввести действительные числа x,y,z. вычислить и выдать на печать значение числа m такого что m=max(x,y,z)/min(x-y,x-z,y-z)
10-11 класс|
|
Mrkotovmaksim
04 янв. 2015 г., 10:58:52 (9 лет назад)
LilAnnie
04 янв. 2015 г., 13:37:05 (9 лет назад)
function mm(x,y,z:real):real;
var
f:real;
begin
if (x>y) and (x>z) then
f:=x
else if (y>x) and (y>z) then
f:=y
else if (z>x) and (z>y) then
f:=z;
mm:=f;
end;
var
x,y,z,m:real;
begin
readln(x);
readln(y);
readln(z);
m:=mm(x,y,z)/-mm(-(x-y),-(x-z),-(y-z));
writeln(m);
end.
Ответить
Другие вопросы из категории
Каковы будут значения переменных a и b после выполнения операций присваивания (начальное
значение a=5)?
Рассматриваются символьные последовательности длины 5 в шестибуквенном алфавите {У, Ч, Е Н, И, К}. Сколько существует таких последовательностей, которые на
чинаются с буквы У и заканчиваются буквой К?
Читайте также
1)Ввести целое число и найти произведение его четных цифр. Пример: Введите целое число: 1234. Произведение четных цифр числа 1234 равно
6.
2)Ввести целое число и определить количество черных и нечетных цифр.
Пример:
Введите целое число :12547
количество нечетных цифр:3
количество четных цифр:2
4 задачи: ввести натуральное число и определить, верно ли, что сумма цифр равна 10 (через repeat и until)//// ввести натуральное
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
Напишите прог-у на паскале... ПЛИИИИИИИИИИЗ 1)даны действительные числа a1, b1, c1, a2, b2, c2. Составьте программу, которая находит координаты точки
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
Вы находитесь на странице вопроса "ввести действительные числа x,y,z. вычислить и выдать на печать значение числа m такого что m=max(x,y,z)/min(x-y,x-z,y-z)", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.