Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
XpoM
0 / 0 / 0
Регистрация: 11.12.2011
Сообщений: 9
1

Определить, какое из трех чисел равно заданному

11.12.2011, 18:36. Просмотров 993. Ответов 3
Метки нет (Все метки)

1)Найти max {min (a, b), min (c, d)}.
2)Даны три числа m, n, p. Определить какое из них равно d. Если ни одно не рано d, то найти max(d-m, d-n, d-p).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.12.2011, 18:36
Ответы с готовыми решениями:

Определить, какое из чисел равно д, если никакое, то найти max(д-а,д-в,д-с)
......

Определить какое из трех чисел равно d.
всем привет! помогите с программкой: даны три числа a, b, c. Определить какое...

Определить, сколько элементов массива больше, меньше и равно заданному числу
Ввести массив d, d, ..., d вещественного типа и вещественное число х....

Найти наибольший возможный НОД трех чисел, если их произведение равно 56824590636
Произведение трех чисел равно 56824590636. Найдите наибольший возможный НОД...

Определить, какое из трех множеств содержит наибольшее количество элементов
Нужно составить программу, которая определит какое из трех множеств содержит...

3
GoldenBoy
Goldeeeeeeen !
242 / 234 / 186
Регистрация: 15.10.2011
Сообщений: 457
11.12.2011, 18:51 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
var a,b,c,d,min1,min2,max:integer;
begin
readln(a,b,c,d);
min1:=a;
if b<min1 then min1:=b;
min2:=c;
if d<min2 then min2:=d;
max:=min1;
if min2>max then max:=min2;
writeln('max= ',max);
end.
Добавлено через 6 минут
2.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var m,n,p,d,max:integer;
begin
readln(m,n,p,d);
if m=d then writeln('m=d ');
if n=d then writeln('n=d ');
if p=d then writeln('p=d ');
if (m<>d) and (n<>d) and (p<>d) then
begin
max:=d-m;
if d-n>max then max:=d-n;
if d-p>max then max:=d-p;
writeln('Max= ',max);
end;
end.
2
XpoM
0 / 0 / 0
Регистрация: 11.12.2011
Сообщений: 9
11.12.2011, 18:53  [ТС] 3
Спасибо,все ништяк)
0
GoldenBoy
Goldeeeeeeen !
242 / 234 / 186
Регистрация: 15.10.2011
Сообщений: 457
11.12.2011, 18:57 4
Пожалуйста =)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2011, 18:57

Поиск трех простых чисел, предшествующих числу М, заданному пользователем
Please help me!!! разработать программу поиска трех простых чисел,...

Определить сколько чисел больше или равно А, но меньше В
Задана матрица М(3,4) Определить сколько чисел больше или равно А, но меньше В...

Определить, сколько чисел последовательности меньше K, равно K и больше K
Задана последовательность из N вещественных чисел. Определить сколько чисел...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru