|
|
вернуться в форумОтвет для Pascal var a:integer; begin read(a); if a=0 then write(5); if a=1 then write(21); if a=2 then write(12); if a=3 then write(2); if a=4 then write(1); if a=5 then write(4); if a=6 then write(6); if a=7 then write(1); if a=8 then write(4); if a=9 then write(4); if a=10 then write(1); if a=11 then write(0); if a=12 then write(1); if a=13 then write(1); end. Edited by author 28.10.2019 15:01 |
|
|