fork(1) download
  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);
  14. writeln('Podpunkt b', wynikB);
  15. writeln('Podpunkt c', wynikC);
  16.  
  17.  
  18.  
  19. end.
Success #stdin #stdout 0s 5284KB
stdin
1
1
1
stdout
Podaj 3 zmienne: 
Podpunkt a 2.000000000000000e+00
Podpunkt b 5.000000000000000e+00
Podpunkt c-3.333333333333333e-01