SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору vlrep, тут очень многое зависит от того, насколько большим может быть N и, следовательно, главный вопрос, в какой тип данных вводим проверяемое число... Код: var N : integer; Chislo : LongInt; s : string; begin WriteLn('Введите число знаков N :'); Readln(N); WriteLn('А теперь введите ',(2*N):1,'-значное число: ' ); Readln(Chislo); str(Chislo,s); while Length(s)<(2*N) do s := '0'+s; if Copy(s,1,N)=Copy(s,N+1,N) then WriteLn('Счастливый билетик!') else WriteLn('не повезло - билет не счастливый...'); end. |
|