Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Find the greatest integers - v3
//fpc 3.0.0 //fpc 3.0.0 program HelloWorld; var great,a,b,c: integer; begin write('Enter three integers: '); readln(a,b,c); great := a; if (b>great) then great:=b; if (c>great) then great:=c; write ('The greatest number is ', great); end.
run
|
edit
|
history
|
help
0
String compare
Сумма пар чисел кратных и некратных 11 с дельтой неэффективная
Стандартные функции в паскале round, trunc, int, frac
nomer9
yh
solar_system_n_(20)_planets_an_time
пример рекурсивной функции
record as a procedure argument
test16
fini