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
Для Лехи -2
Enigma
Genetic Pascal
zadacha8
НОД по моему
programme 1
tekl
nomer6
BubbleSort (standaard)
nomer5