Символы

@varfolm · Регистрация: 03.03.2013

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

Ссылка на картинку с задачкой:

ребят, к вам такой вопрос: как они вообще получили эту 4. Условия задачки я не понял вообще, я не прошу вас написать программу (ибо сам справлюсь), я прошу вас помочь мне понять, что надо сделать. Поможете?

Добавлено через 26 секунд
Админы, если не туда написал, перенесите тему куда надо, пожалуйста

Комментарий модератора

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

@Cyborg Drone · 14.11.2013, 21:43

varfolm, да всё там очень просто. Перефразирую для Вас задание: Необходимо найти, сколько правильных лицензионных номеров можно получить, дорисовывая (или не дорисовывая!) во входной номер символы "_", "|", "\", "/", " ", ")", то есть, те символы, которые разрешены в составе входных наборов символов 3х3.

Заметим, букву можно переделывать только в букву, а цифру - только в цифру, так как входная последовательность детерминирована: буква, три цифры, две буквы. Итак, смотрим, что во что можно дорисовать.

B => не дорисовывается
C => E, B
E => B
H => не дорисовывается
K => не дорисовывается
O => не дорисовывается
P => B
0 => 8
1 => 3, 4, 7, 8, 9
2 => 8
3 => 8
4 => 8, 9
5 => 6, 8, 9
6 => 8
7 => 0, 3, 8, 9
8 => не дорисовывается
9 => 8

Смотрим. Входная последовательность P868BB. Можно дорисовать P и 6. Имеем:

1) Ничего не меняем: P868BB
2) P => B: B868BB
3) 6 => 8: P888BB
4) P => B и 6 => 8: B888BB

Вот Вам и 4 номера.

Добавлено через 10 минут
varfolm, Вы нарушили правила форума:

5. 18. Запрещено размещать задания в виде картинок и других файлов с их текстом.
5. 19. Запрещено размещать ссылки на задания и коды программ, расположенные на других сайтах. Вопросы и коды программ должны размещаться на форуме.

@varfolm · 15.11.2013, 07:00 **[ТС]**

Сообщение от Cyborg Drone

5. 19. Запрещено размещать ссылки на задания и коды программ, расположенные на других сайтах. Вопросы и коды программ должны размещаться на форуме.

если вы мне расскажите, как мне оставить картинку на этом сайте, я обязательно всё исправлю

Премного благодарен

@Cyborg Drone · 15.11.2013, 16:56

В расширенном режиме ответа скрепочка появится в шапке редактора сообщений.

@varfolm · 15.11.2013, 19:31 **[ТС]**

Сообщение от Cyborg Drone

В расширенном режиме ответа скрепочка появится в шапке редактора сообщений.

запомню, но теперь возможности отредактировать сообщения у меня нет

Добавлено через 1 час 33 минуты
Скорее всего, неправильно, Cyborg Drone, ибо только на ту самую 4 он выдаёт правильный ответ, больше ни на что

из 100 баллов набирается только 5. Программу я проверил вдоль и поперёк, всё правильно

@Cyborg Drone · 17.11.2013, 00:39

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

запомню, но теперь возможности отредактировать сообщения у меня нет

Ничего страшного.

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

только на ту самую 4 он выдаёт правильный ответ

Странно... Иных закономерностей в задаче я не вижу. Точно всё верно? Проверьте, к примеру, на B111BB должно быть выдано 216 вариантов.

@varfolm · 22.11.2013, 22:45 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Program C;
Var
bukvas: array[1..6,1..3,1..3] of char;
k,i,j:integer;
res:longint;
inp,outp:text;
str:string;
Begin
Assign (inp,'input.txt');
Reset(inp);
 
k:=0;
While not Eof(inp) do begin
  k:=k+1;
  for i:=1 to 3 do begin
    readln(inp,str);
    for j:=1 to 3 do begin
      if (j>length(str)) then bukvas[k,i,j]:=' ' else bukvas[k,i,j]:=str[j];
    end;
  end;
end;
Close(inp);
 
res:=1;
for i:=1 to 6 do begin
  if i in [2..4] then begin
    if(bukvas[i,2,2]=bukvas[i,3,1])and(bukvas[i,3,1]=' ') then begin res:=res*6;end;
    if(bukvas[i,2,1]=bukvas[i,3,3])and(bukvas[i,3,3]=' ') then begin res:=res*2;end;
    if(bukvas[i,2,1]=bukvas[i,3,1])and(bukvas[i,3,1]=' ')and(bukvas[i,1,2]=bukvas[i,2,2])and(bukvas[i,2,2]='_') then begin res:=res*2;end;
    if(bukvas[i,1,2]=bukvas[i,3,1])and(bukvas[i,3,1]=' ')and(bukvas[i,2,1]=bukvas[i,2,3])and(bukvas[i,2,3]='|') then begin res:=res*3;end;
    if(bukvas[i,2,3]=bukvas[i,3,1])and(bukvas[i,3,1]=' ') then begin res:=res*4;end;
    if(bukvas[i,2,3]=' ')and(bukvas[i,3,1]='|') then begin res:=res*2;end;
    if(bukvas[i,3,1]=bukvas[i,3,2])and(bukvas[i,2,1]=bukvas[i,2,3]) then begin res:=res*5;end;
    if(bukvas[i,3,1]=bukvas[i,2,3])and(bukvas[i,2,1]=bukvas[i,3,1])and(bukvas[i,2,2]='_') then begin res:=res;end;
    if(bukvas[i,3,1]=' ')and(bukvas[i,2,1]=bukvas[i,2,3])and(bukvas[i,3,2]='_')then begin res:=res*2;end;
    if(bukvas[i,3,1]=bukvas[i,2,3])and(bukvas[i,2,1]=bukvas[i,3,1])and(bukvas[i,2,2]=' ') then begin res:=res*2;end;
  end else begin
    if(bukvas[i,3,3]=')')then begin res:=res;end;
    if(bukvas[i,2,3]=bukvas[i,3,3])and(bukvas[i,3,3]=' ')and(bukvas[i,2,2]=' ') then begin res:=res*3;end;
    if(bukvas[i,2,3]=bukvas[i,3,3])and(bukvas[i,2,2]='_')and(bukvas[i,3,3]=' ') then begin res:=res*2;end;
    if(bukvas[i,2,1]=bukvas[i,3,3])and(bukvas[i,2,1]='|') then begin res:=res;end;
    if(bukvas[i,3,3]='\')then begin res:=res;end;
    if(bukvas[i,2,1]=bukvas[i,3,3])and(bukvas[i,3,3]='/') then begin res:=res;end;
    if(bukvas[i,2,3]=')')and(bukvas[i,3,2]=' ') then begin res:=res*2;end;
  end;
end;
 
Assign(outp,'output.txt');
Rewrite(outp);
Writeln(outp,res);
Close(outp);
end.

Cyborg Drone, Вот мой код
здесь ведь всё правильно?

@Cyborg Drone · 24.11.2013, 00:09

Не по теме:

varfolm, yне могу оцеить. Я сёдни пьян. Часов через 8.

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .

@Cyborg Drone Модератор 10445 / 5737 / 3406 Регистрация: 17.08.2012 Сообщений: 17,454
	15.11.2013, 16:56
	В расширенном режиме ответа скрепочка появится в шапке редактора сообщений. 1

@Cyborg Drone
	24.11.2013, 00:09
	Не по теме: varfolm, yне могу оцеить. Я сёдни пьян. Часов через 8. 0