fork download
copy 
  1. program wyrazenia;
  2.  
  3. var a, b, c, wynikA, wynikB, wynikC : double;
  4.  
  5. begin
  6.     writeln('Podaj 3 zmienne: ');
  7.     readln(a);
  8.     readln(b);
  9.     readln(c);
  10.     wynikA := a+b*c*c;
  11.     wynikB := (a+b)*(a+b)-(b/c)*(a-2);
  12.     wynikC := ((a*b)-(c-a))/(b*b-4*a*c);
  13.     writeln('Podpunkt a', wynikA:10:4);
  14.     writeln('Podpunkt b', wynikB:10:4);
  15.     writeln('Podpunkt c', wynikC:10:4);
  16.  
  17.  
  18.  
  19. end.
Success #stdin #stdout 0s 5284KB
comments (?)
stdin
copy 
1
1
1
stdout
copy 
Podaj 3 zmienne: 
Podpunkt a    2.0000
Podpunkt b    5.0000
Podpunkt c   -0.3333
https://ideone.com/amnhy5
language:
Pascal (gpc 20070904)
created:
26 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!