fork download
copy 
  1. {
  2. 	Задача:
  3. 	- 69 из "Turbo Pascal в задачах и примерах"
  4. 	- автор сборника Никита Культин
  5. 	Решение:
  6. 	- автор Дмитрий С. Кузнецов
  7. 	- цена за исключительные права $112.11
  8. }
  9. program MeasureChange;
  10. const
  11. 	versta = 1.0668;
  12. var
  13. 	kms, v		:real;
  14.  
  15. begin
  16.  
  17. writeln('Перерасчет расстояния из верст в километры.');
  18. writeln('Введите расстояние в верстах и нажмите <Enter>.');
  19. write('->');
  20.  
  21. readln(v);
  22.  
  23. kms := v * versta;
  24.  
  25. writeln(' ', v:5:2, ' верст(а/ы) - это ', kms:3:2, ' км.' );
  26.  
  27. end.
Success #stdin #stdout 0s 5280KB
comments (?)
stdin
copy 
100
stdout
copy 
Перерасчет расстояния из верст в километры.
Введите расстояние в верстах и нажмите <Enter>.
-> 100.00 верст(а/ы) - это 106.68 км.
https://ideone.com/GGcUhQ
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!