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
Huong11a2@
Naloga 8: 10.9.2008
Record as a procedure argument
сумма чётных и нечётных чисел
Подсчёт количества целочисленных точек внутри круга радиуса r
Урок 3 задача 3
[DE/GER] Caesar Chiffre (Verschlüsseln)
test27
Pascal First
Задачи на div и mod