fork download
copy 
  1. program Krug;
  2.  
  3. CONST 
  4. 	Pi = 3.14155;
  5.  
  6. VAR
  7. 	i,n: integer;
  8. 	r,P,O: real;
  9.  
  10. begin
  11. 	writeln('Unesite broj krugova za racunanje: ');
  12. 	readln(n);
  13. 	for i:=1 to n do
  14. 		begin
  15. 			writeln('Unesite poluprecnik kruga: ');
  16. 			read(r);
  17. 			P:= r*r*Pi;
  18. 			O:= 2*r*Pi;
  19. 			writeln('Povrsina je: ' ,P:10:2);
  20. 			writeln('Obim je: ', O:10:2);
  21. 		end
  22. end.
Runtime error #stdin #stdout 0s 280KB
comments (?)
stdin
copy 
1
2,5
stdout
copy 
Unesite broj krugova za racunanje: 
Unesite poluprecnik kruga: 
Runtime error 106 at $08048161
  $08048161
  $08063843
https://ideone.com/guaNek
language:
Pascal (fpc 3.0.4)
created:
7 years 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!