Автор | Сообщение |
|
Отправлено: 18.02.22 12:13. Заголовок: не совпал ответ
Задача: Света составляет 6-буквенные слова из букв С, О, Л, Н, Ц, Е, причём буква О встречается в слове не более 2 раз, а буква Ц — ровно 1 раз. Буквы могут повторяться. Сколько таких слов может составить Света? Решение: var ko,kc,i:integer; begin var W:=[ 's','o','l','n','c','e']; var c:=0; foreach i1:char in w do foreach i2:char in w do foreach i3:char in w do foreach i4:char in w do foreach i5:char in w do foreach i6:char in w do begin var s:=i1+12+i3+i4+i5+i6; ko:=0; kc:=0; for i:=1 to length(s) do begin if s[ i]='o' then ko:=ko+1; if s[ i]='c' then kc:=kc+1; end; if (ko<=2) and (kc=1)then c:=c+1; end; write (c); end. ответ 18240, правильный 17664 В чем моя ошибка?
|
|
|
Ответов - 2
[только новые]
|
|
|
| Администратор
|
Сообщение: 3325
|
|
Отправлено: 18.02.22 12:35. Заголовок: anna+st пишет: var ..
anna+st пишет: цитата: | var s:=i1+12+i3+i4+i5+i6; |
|
|
|
|
|
Отправлено: 18.02.22 12:51. Заголовок: Спасибо! Глаз замыле..
Спасибо! Глаз замылен уже, элементарных ошибок не видит))))
|
|
|
|