Автор | Сообщение |
|
Отправлено: 02.02.21 20:50. Заголовок: Задание 20
Добрый день, Константин Юрьевич! В 20 задании получила ответ 231 для файла 27-20b.txt, ответ не сходится, для первого файла ответ верный Помогите разобраться, пожалуйста! var lengmax,i,j,x1,s,x2,y1,y2,leng,temp:integer; begin assign(input, '27-20b.txt'); Readln(s); Readln(x1,x2); leng:=1; lengmax:= 1; for i:=2 to s do begin Readln(y1, y2); if x2 = y1 then begin leng+=1; end else if x2 = y2 then begin temp:= y1; y1:= y2; y2:=temp; leng+=1; end else if x1 = y1 then begin temp:=x2; x2:=x1; x1:=temp; leng:=2; end else leng:=1; if leng > lengmax then lengmax:=leng; x1:= y1; x2:= y2; end; Writeln(lengmax); end.
|
|
|
Новых ответов нет
[см. все]
|
|
|
| Администратор
|
Сообщение: 2389
|
|
Отправлено: 02.02.21 21:32. Заголовок: На сайте есть решени..
На сайте есть решения всех 27-х задач, посмотрите там, пожалуйста.
|
|
|
|
Отправлено: 02.02.21 22:34. Заголовок: Спасибо! Нашла ошибк..
Спасибо! Нашла ошибку, не учла одно условие, возможность поворота одновременно двух костяшек.
|
|
|
|
| Администратор
|
Сообщение: 2391
|
|
Отправлено: 02.02.21 22:45. Заголовок: OksanaG пишет: не уч..
OksanaG пишет: цитата: | не учла одно условие, возможность поворота одновременно двух костяшек. |
|
Вполне естественно. Я когда решал в первый раз эту задачу, тоже не учел.
|
|
|
|
Отправлено: 02.02.21 22:39. Заголовок: Большое спасибо, за ..
Большое спасибо, за совет и быстрый ответ!
|
|
|
|