Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Dmitry1373
0 / 0 / 0
Регистрация: 17.10.2016
Сообщений: 4
1

Из двух чисел выбрать ближайшее к заданному числу

10.11.2016, 16:58. Просмотров 490. Ответов 3
Метки нет (Все метки)

Макс и Владимир поспорили о том, сколько человек решат эту задачу. Макс говорит, что её решат A человек. Владимир считает, что её решат B человек.

На самом деле задачу решили X человек. Теперь победителем в споре считается тот, кто назвал число, ближайшее к X.

Помогите Максу и Владимиру определить, кто из них выиграл спор.

Входные данные
Первая строка содержит целые числа A и B (0 ≤ A, B ≤ 100) — соответственно предположения Макса и Владимира.

Вторая строка содержит целое число X (0 ≤ X ≤ 100) — количество людей, решивших задачу.

Выходные данные
Если предположение Макса было ближе к правильному ответу, выведите Max.

Если предположение Владимира было ближе к правильному ответу, выведите Vladimir.

Если оба предположения одинаково близки к правильному ответу, выведите Draw.
Пример:
1)3 8
0
Max
2)15 12
13
Vladimir
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.11.2016, 16:58
Ответы с готовыми решениями:

Для всех чисел от 0 до 99 (целых) выбрать и вывести на экран такие, сумма цифр которых равна заданному числу
Для всех чисел от 0 до 99 (целых) выбрать и вывести на экран такие, сумма цифр которых равна...

Определить, есть ли хотя бы одно число, которое кратно заданному числу А и не кратно заданному числу В
Составить программу для решения предложенной задачи. Выясните имеются ли среди чисел i3 – 17*i*n2 +...

Среди заданных чисел найти количество пар чисел, модуль разности которых равен заданному числу
Дана строка из n целых чисел. Найти кол-во пар чисел модуль разности которых равен d. ВХОДНЫЕ...

Найти сумму натуральных чисел, предшествующих заданному числу а
Помогите, пожалуйста, с заданиями...ничего не получается!! 1)Найти сумму натуральных чисел,...

Ближайшее к числу
Здравствуйте! Т.к. я в массивах не силен обращаюсь за помощью. Дана такая задача: В телешоу ведущий...

3
AnthonyM
0 / 0 / 2
Регистрация: 10.11.2016
Сообщений: 16
10.11.2016, 22:14 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program task1;
var a,b,c:integer;
begin
write('Введите число Макса: ');
read(a);
write('Введите число Владимира: ');
read(b);
write('Введите число X: ');
read(c);
if a-c<b-c then writeln('Макс победил!') else
if a-c>b-c then writeln('Владимир победил!') else
writeln('Ничья'); 
end.
0
Sergio Leone
2471 / 1116 / 580
Регистрация: 07.06.2014
Сообщений: 3,259
10.11.2016, 23:05 3
AnthonyM, идея правильная, только нужно от разницы брать модуль.
Pascal
1
2
if abs(a-c)<abs(b-c) then ...
else if abs(a-c)>abs(b-c) then ...

контр пример, когда твой вариант даст сбой
5 15
14

Кто победил?
0
AnthonyM
0 / 0 / 2
Регистрация: 10.11.2016
Сообщений: 16
10.11.2016, 23:17 4
Sergio Leone, Ага Ты прав
0
10.11.2016, 23:17
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.11.2016, 23:17

Выясняющую, есть ли среди чисел n числа, кратные заданному числу A
Написать программу, выясняющую, есть ли среди чисел i3-17in2+n3, i=1,…,n числа кратные заданному...

Найти количество натуральных трехзначных чисел, сумма которых равна заданному числу N
Составить программу, определяющую количество натуральных трехзначных чисел , сумма которых равна...

Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N
сост прогу Определить кол-во трехзначных натуральных чисел, сумма цифр которых равна заданному...


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

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

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