Количество пар равных чисел

@AndalPorsh · Регистрация: 27.01.2018

Даны четыре числа a, b, c, d .Вывести на экран количество пар равных чисел

@Puporev · 27.01.2018, 18:14

AndalPorsh, Вы сами думать начнете? Условие проще некуда.

@кот Бегемот · 27.01.2018, 18:18

Ну, Puporev, ты не прав. Тут целых 6 сравнений надо сделать. Вот найти большее из двух чисел - это гораздо круче.

@AndalPorsh · 27.01.2018, 18:18 **[ТС]**

Я новичок ...пока не очень получиться ...Вы решили задачи очень коротко и ясно я тоже решил код получился длинный

@Puporev · 27.01.2018, 18:20

Сообщение от кот Бегемот

Тут целых 6 сравнений надо сделать.

Я ему уже написал 2 похожих программы, больше пас.

Новичок · 31.01.2018, 01:35

Не удивлюсь если PascalABC не скомпилит это.

Pascal

var a, b, c, d: Integer;
begin
   Read(a, b, c, d);
   Writeln(Ord(a = b) + Ord(a = c) + Ord(a = d) + Ord(b = c) + Ord(b = d) + Ord(d = c));
end.

@Cyborg Drone · 31.01.2018, 02:29

Конечно, не скомпилирует, поскольку в Pascal ABC тип boolean не является перечисляемым, и поэтому функция ord к результатам сравнения неприменима.

Новичок · 31.01.2018, 18:55

Не по теме:

Все-таки правильно говорил мой знакомый: "Недоделка абц" :D

@Cyborg Drone · 31.01.2018, 19:18

Не по теме:

Что поделать... Учебный паскаль... Несчастный инвалид, у которого ампутировано всё, что можно, и всё, что нельзя...

@AndalPorsh 0 / 0 / 0 Регистрация: 27.01.2018 Сообщений: 8
		1
	Количество пар равных чисел 27.01.2018, 17:58. Показов 1657. Ответов 8 Метки нет (Все метки) Даны четыре числа a, b, c, d .Вывести на экран количество пар равных чисел 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.01.2018, 18:14	2
	AndalPorsh, Вы сами думать начнете? Условие проще некуда. 0

@кот Бегемот Платежеспособный зверь 8944 / 4371 / 1646 Регистрация: 28.10.2009 Сообщений: 11,595
	27.01.2018, 18:18	3
	Ну, Puporev, ты не прав. Тут целых 6 сравнений надо сделать. Вот найти большее из двух чисел - это гораздо круче. 0

@AndalPorsh 0 / 0 / 0 Регистрация: 27.01.2018 Сообщений: 8
	27.01.2018, 18:18 [ТС]	4
	Я новичок ...пока не очень получиться ...Вы решили задачи очень коротко и ясно я тоже решил код получился длинный 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.01.2018, 18:20	5
	Сообщение от кот Бегемот Тут целых 6 сравнений надо сделать. Я ему уже написал 2 похожих программы, больше пас. 0

@Cyborg Drone Модератор 9967 / 5331 / 3329 Регистрация: 17.08.2012 Сообщений: 16,258
	31.01.2018, 02:29	7
	Конечно, не скомпилирует, поскольку в Pascal ABC тип boolean не является перечисляемым, и поэтому функция ord к результатам сравнения неприменима. 0

Новичок
	31.01.2018, 18:55 #8
	Не по теме: Все-таки правильно говорил мой знакомый: "Недоделка абц" :D 0

@Cyborg Drone
	31.01.2018, 19:18 Количество пар равных чисел #9
	Не по теме: Что поделать... Учебный паскаль... Несчастный инвалид, у которого ампутировано всё, что можно, и всё, что нельзя... 0

Опции темы