Bližší popis
program Morse; const maxz=80; {maximalni pocet znaku} var s1, s2: string; procedure prevod(s: string; var kod: string); begin {telo procedury}end; BEGIN writeln(' Zadej zpravu (max.',maxz,' zn.): ');END. |
[Archív] | [Změna kódování] |
![]() |
![]() |