fork download
copy 
  1. #
  2. #	Задача:
  3. #	- 50 из "Turbo Pascal в задачах и примерах"
  4. #	- автор сборника Никита Культин
  5. #	Решение:
  6. #	- автор Дмитрий Кузнецов
  7. #	- цена $25
  8. #
  9. #
  10.  
  11. #!/usr/bin/perl
  12. #
  13. #
  14. print "Тетради:\n \t количество, цена(руб.).\n";
  15. my $notebookPrice  = <STDIN>;
  16. my $notebookAmount = <STDIN>;
  17.  
  18. #
  19. print "Карандаши:\n \t количество, цена(руб.).\n";
  20. my $pencilPrice    = <STDIN>;
  21. my $pencilAmount   = <STDIN>;
  22.  
  23. #
  24. my $totalPrice = $notebookPrice * $notebookAmount + $pencilPrice * $pencilAmount;
  25. print "Цена в итоге: $totalPrice руб.\n";
  26.  
  27.  
Success #stdin #stdout 0.01s 5264KB
comments (?)
stdin
copy 
100
100
15
50
stdout
copy 
Тетради:
 	 количество, цена(руб.).
Карандаши:
 	 количество, цена(руб.).
Цена в итоге: 10750 руб.
https://ideone.com/BjXl47
language:
Perl (perl 5.28.1)
created:
9 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!