Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Сортировка трёх чисел в порядке возрастания
var a, b, c, temp : integer; begin readln (a, b, c ); writeln ('a=', a, ' b=', b, ' c=', c); if a > b then begin temp := a; a := b; b := temp end; writeln ('a=', a, ' b=', b, ' c=', c); if b > c then begin temp := b; b := c; c := temp end; writeln ('a=', a, ' b=', b, ' c=', c); if a > b then begin temp := a; a := b; b:= temp end; writeln ('a=', a, ' b=', b, ' c=', c); end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Naloga 12: 3.9.2003
45
test22
Вычисление площади фигуры
solar_system_n_planets_any_time
урок 13 пример 3 параметры по значению и параметры переменные
x-div-2-x-3+1
test01
test12
test19
Please log in to post a comment.