|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.04.2011, 12:25 | #1 |
Регистрация: 03.04.2011
Сообщений: 3
|
Как приравнять числа? (см. внутри)
Друзья, помогите пожалуйста с паскалем ABC, есть такая вот задача: даны 3 любых числа (вводим через readln). Нужно узнать и вывести на экран, равны ли эти числа. Должен появиться один из вариантов: "Все числа равны" или "Равны только два числа" (какие именно, указывать не надо) или "Все числа разные". Я не пойму как это решить, но я дамаю должно быть что-то вроде этого:
Program QWERTY; Var a, b, c: integer; Begin; Cls; Writeln ('Введите первое число'); Readln (a); Writeln ('Введите второе число'); Readln (b); Writeln ('Введите третье число'); Readln (c); If (a+b)=(b+c)=(a+c) then writeln ('Все числа равны') else writeln ('Не все числа равны'); End. Просто я полный ламер в паскале, помогите пожалуйста!!!!!! |
03.04.2011, 13:43 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
New man, проще, коллега, проще..
если равны все - то отработает первое условие, по else - значит они все не равны, поэтому достаточно: Код:
|
03.04.2011, 17:15 | #4 |
Регистрация: 03.04.2011
Сообщений: 3
|
Спасибо, ребята!!!!)))) Короче, вот так всё получилось:
Код:
________ Код нужно оформлять по правилам: тегом [CODE]..[/СODE] (это кнопочка с решёточкой #) Не забывайте об этом! Модератор. Последний раз редактировалось Serge_Bliznykov; 03.04.2011 в 17:41. |
08.04.2011, 20:45 | #5 |
Регистрация: 03.04.2011
Сообщений: 3
|
Ещё вопрос в тему! Задача такова: вводятся через ридлн 5 любых чисел. Надо вывести на экран, являются ли 4 из них (любые) одинаковыми. Я чёто вообще разобрать не могу, пол дня логову ломаю.
|
08.04.2011, 23:21 | #6 |
Пользователь
Регистрация: 18.05.2010
Сообщений: 10
|
Код:
|
09.04.2011, 05:14 | #7 |
Пользователь
Регистрация: 02.04.2011
Сообщений: 48
|
Код:
Последний раз редактировалось Asinkrit; 09.04.2011 в 05:19. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нахождение слов-анаграмм, Ошибка выдается. Задание внутри. Код внутри. | TYMON | Общие вопросы .NET | 2 | 22.11.2010 21:07 |
Как переменную приравнять к значению запроса | alco84 | Microsoft Office Access | 2 | 05.03.2010 16:47 |
Как числа в двоичном виде вывести в столбик по 4 числа? | Equalizer | Общие вопросы C/C++ | 11 | 27.09.2009 14:15 |
Как приравнять два разных значения в excel? | Viento | Microsoft Office Excel | 7 | 06.01.2009 01:14 |
Как создать shap внутри программы? | kl45gp | Общие вопросы Delphi | 3 | 13.06.2007 10:02 |