Определение количества номеров машин

@evgenlewandowsk · Регистрация: 14.10.2017

Студворк — интернет-сервис помощи студентам

Напишите программу, которая определяет количество номеров машин, содержащих две и только две одинаковые цифры (номер машины четырехзначный 0000..9999) используя процедуры и/или функции

@D1973 · 23.10.2017, 17:17

Сообщение от evgenlewandowsk

Напишите программу

evgenlewandowsk, это приказ?

@evgenlewandowsk · 23.10.2017, 18:43 **[ТС]**

Сообщение от D1973

evgenlewandowsk, это приказ?

Просьба. Задание скопипастил просто

@D1973 · 23.10.2017, 18:56

А как быть с номерами вида 1122? Тут 2 цифры одинаковые - но 2 раза...

@evgenlewandowsk · 23.10.2017, 21:43 **[ТС]**

Сообщение от D1973

А как быть с номерами вида 1122? Тут 2 цифры одинаковые - но 2 раза...

Думаю, надо его считать два раза: как номер с двумя единицами, и как номер с двумя двойками

@qwertehok · 23.10.2017, 22:21

а тогда 1111 как считать?

Добавлено через 7 минут

Delphi

a,b,c,d,i:integer;
 
function da(a,b,c,d:integer):boolean;
var i:integer;
begin
  result:=false;
  i:=0;
  if a=b then i:=i+1; 
  if a=c then i:=i+1;
  if a=d then i:=i+1;
  if b=c then i:=i+1;
  if b=d then i:=i+1;
  if c=d then i:=i+1;
  if i=1 then result:=true;
end;
 
Procedure Button1Click();
begin
i:=0;
for a:=0 to 9 do
 for b:=0 to 9 do
  for c:=0 to 9 do
   for d:=0 to 9 do
   begin
     if da(a,b,c,d) then i:=i+1;
   end;
showmessage(inttostr(i));
end;
 
end.

как-то, сам проверил только на бумаге

))
ЗЫ 1122 считаю 1 раз

@evgenlewandowsk · 23.10.2017, 22:36 **[ТС]**

Сообщение от qwertehok

а тогда 1111 как считать?

А в 1111 единица повторяется четыре раза, а надо 2. То есть это вообще не считается

@qwertehok · 23.10.2017, 23:09

мое "творение" не подошло?

@evgenlewandowsk · 24.10.2017, 16:42 **[ТС]**

Сообщение от qwertehok

мое "творение" не подошло?

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

@qwertehok · 24.10.2017, 16:44

Покажешь что в итоге получилось?

@evgenlewandowsk · 24.10.2017, 18:54 **[ТС]**

Сообщение от qwertehok

Покажешь что в итоге получилось?

Когда сделаю - конечно

@evgenlewandowsk 0 / 0 / 1 Регистрация: 14.10.2017 Сообщений: 28
		1
	Определение количества номеров машин 23.10.2017, 17:05. Показов 1102. Ответов 10 Метки нет (Все метки) Напишите программу, которая определяет количество номеров машин, содержащих две и только две одинаковые цифры (номер машины четырехзначный 0000..9999) используя процедуры и/или функции 0

@D1973 Модератор 8490 / 5650 / 2290 Регистрация: 21.01.2014 Сообщений: 24,238 Записей в блоге: 3
	23.10.2017, 17:17	2
	Сообщение от evgenlewandowsk Напишите программу evgenlewandowsk, это приказ? 0

@evgenlewandowsk 0 / 0 / 1 Регистрация: 14.10.2017 Сообщений: 28
	23.10.2017, 18:43 [ТС]	3
	Сообщение от D1973 evgenlewandowsk, это приказ? Просьба. Задание скопипастил просто 0

@D1973 Модератор 8490 / 5650 / 2290 Регистрация: 21.01.2014 Сообщений: 24,238 Записей в блоге: 3
	23.10.2017, 18:56	4
	А как быть с номерами вида 1122? Тут 2 цифры одинаковые - но 2 раза... 0

@evgenlewandowsk 0 / 0 / 1 Регистрация: 14.10.2017 Сообщений: 28
	23.10.2017, 21:43 [ТС]	5
	Сообщение от D1973 А как быть с номерами вида 1122? Тут 2 цифры одинаковые - но 2 раза... Думаю, надо его считать два раза: как номер с двумя единицами, и как номер с двумя двойками 0

@evgenlewandowsk 0 / 0 / 1 Регистрация: 14.10.2017 Сообщений: 28
	23.10.2017, 22:36 [ТС]	7
	Сообщение от qwertehok а тогда 1111 как считать? А в 1111 единица повторяется четыре раза, а надо 2. То есть это вообще не считается 0

@qwertehok 5090 / 4103 / 1027 Регистрация: 29.08.2013 Сообщений: 26,011 Записей в блоге: 3
	23.10.2017, 23:09	8
	мое "творение" не подошло? 0

@evgenlewandowsk 0 / 0 / 1 Регистрация: 14.10.2017 Сообщений: 28
	24.10.2017, 16:42 [ТС]	9
	Сообщение от qwertehok мое "творение" не подошло? Не совсем подошло, но теперь вы дали мне идею, от которой я буду отталкиваться. Спасибо за помощь 0

@qwertehok 5090 / 4103 / 1027 Регистрация: 29.08.2013 Сообщений: 26,011 Записей в блоге: 3
	24.10.2017, 16:44	10
	Покажешь что в итоге получилось? 0

@evgenlewandowsk 0 / 0 / 1 Регистрация: 14.10.2017 Сообщений: 28
	24.10.2017, 18:54 [ТС]	11
	Сообщение от qwertehok Покажешь что в итоге получилось? Когда сделаю - конечно 0

Опции темы