fork download
copy 
  1. #
  2. #	Решение:
  3. #	- автор Дмитрий Кузнецов
  4. #	- цена $12.2345
  5. #
  6.  
  7. my $name = <STDIN>;
  8.  
  9. my $i = 0;
  10.  
  11. while ($i < 10) {
  12. 	print ("\t Half of the World is separated and fight on $name.\n");
  13. 	$i = $i + 1;
  14. }
  15.  
  16.  
Success #stdin #stdout 0s 5308KB
comments (?)
stdin
copy 
Dan
stdout
copy 
	 Half of the World is separated and fight on Dan.
	 Half of the World is separated and fight on Dan.
	 Half of the World is separated and fight on Dan.
	 Half of the World is separated and fight on Dan.
	 Half of the World is separated and fight on Dan.
	 Half of the World is separated and fight on Dan.
	 Half of the World is separated and fight on Dan.
	 Half of the World is separated and fight on Dan.
	 Half of the World is separated and fight on Dan.
	 Half of the World is separated and fight on Dan.
https://ideone.com/RABc4m
language:
Perl (perl 5.28.1)
created:
1 day 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!