fork download
copy 
  1. program DeleteBeginningSpaces;
  2. {
  3. 	Задача:
  4. 	- 143 из "Turbo Pascal в задачах и примерах"
  5. 	- автор сборника Никита Культин
  6. 	Решение:
  7. 	- автор Дмитрий Кузнецов
  8.     - цена $108.00
  9. }
  10. var
  11. 	text		:string;
  12. 	i			:integer;
  13. begin
  14. readln(text);
  15.  
  16. for i := 0 to LENGTH(text)-1 do
  17. begin
  18. 	if text[1] = ' ' then
  19. 		delete(text, 1, 1)
  20. 	else
  21. 		break
  22. end;
  23. writeln(text);		
  24.  
  25. end.
Success #stdin #stdout 0s 5276KB
comments (?)
stdin
copy 
         Привет МИР!
stdout
copy 
Привет МИР!
https://ideone.com/ws8Tl6
language:
Pascal (fpc 3.0.4)
created:
7 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!