Program month;
Var
Mon: integer; {}
Buf: string [10]; { }
Code: integer; { }
Begin
Repeat
Write (- > );
Readln (buf); { }
Val (buf, mon, code);{ }
If code <>0 { }
Then Writeln (! .);
Until code=0;
End.
:
>
! .
->5
- , , .
- .
- 10. , ?
- 20. - . , ?
- , , . .
- , .
- . ( ), , .
- , d1 d2 dn (di- , n >1), . .
- n, s1, s2,sn. , , si- , si+1 .
- s1, s2,sn. , s1 s2 ,s3, . s1,s2,, sn- , (n- ).
a) s1, s2,sn;
b) , , s1s2,sn ;
c) , s1s2,sn .
11. n, s1,s2,, sn. , abcd, , .
12. , s1,s2,, sn. s1,s2,, sn, (*) , .
13. n, s1,s2,, sn, . , :
a) ;
b) ; , , .
|
|
14. , b, c.
15. , 60 , , .
- , () ?
- ?
- ?
- ?
- ?
- , ?
- ?
- , 02557
- ?
- , ?
- ord(c), - ?
- , ord(0)=0?
- , a=A?
- , c d- , c<d , ord(c)<ord(d)?
- chr(i), i- ?
- , ?
- ?
- ?
- , chr(ord(c))=c, c- ?
- , rd(chr(i))=I, i- ?
- pred(c), succ(c), c- ?
- , pred(c)=chr(ord(c)-1), - ?
- , succ(c)=chr(ord(c)+1), - ?
- ?
- - ?