Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
ruteo
//fpc 3.0.0 program ruteo; const MIN = 1; MAX = 10; var a,b,c : integer; x,y : real; begin read(a,b,c); b:= b * MAX; c := b - a + MIN; writeln(a,' ',b,' ',c); readln(b,a); writeln(c,' ',b,' ',a); readln(y,x); x := x * MAX - MIN; y := y + MIN; writeln(x:8:1); writeln(y:0:3); end.
run
|
edit
|
history
|
help
0
test01
linear eq
Projet1
test29
For5
test19
practica 9 ejercicio 1
formato_real
2
Tugas1