fork download
copy 
  1. program AraisedToThePowereOfB(OUTPUT);
  2. {
  3. 	Задача:
  4. 	- 180 из "Turbo Pascal в задачах и примерах"
  5. 	- автор сборника Никита Культин
  6. 	Решение:
  7. 	- автор Дмитрий Кузнецов
  8. 	- цена $112.11
  9. }
  10. var
  11. 	a,b		:real;
  12. 	res		:real;
  13.  
  14. begin
  15.  
  16. writeln('Введите a, b :');
  17. read(a, b);
  18. writeln('Введено a(', a:5:4,'), b(', b:5:4,').');
  19. res := exp(ln(a)*b);
  20.  
  21. writeln(' Значение a^b = ', res:5:4);
  22.  
  23. end.
  24.  
Success #stdin #stdout 0s 5292KB
comments (?)
stdin
copy 
5.78 2.34
stdout
copy 
Введите a, b :
Введено a(5.7800), b(2.3400).
 Значение a^b = 60.6612
https://ideone.com/kNhm6N
language:
Pascal (fpc 3.0.4)
created:
12 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!