Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Frase
{Leer una frase acabada en un punto y escribir cada palabra en una línea diferente} program frase; var letra: char; eol : boolean; begin read ( letra ); eol := false; while letra <> '.' do begin if letra = ' ' and (not eol) then begin eol := true; writeln('<Fin de linea>'); end else if (letra >= 'A') and (letra <= 'Z') or (letra >= 'a') and (letra <= 'z') then begin eol := false; write(letra); end; read ( letra ); end; end.
run
|
edit
|
history
|
help
0
array reverse
Something
172
Function Tester
c# specialization/overload
Math 10.95 fracOp (mult div only)
Delegates
My world
Singly-linked IList<T> in C#
math 10.98