Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
03 ariketa
//fpc 3.0.0 program HelloWorld; var a,b,d,txikiena,handiena,tartekoa:integer; begin writeln('Idatzi hiru zenbaki'); readln(a,b,d); if (a<b)and(a<d) then begin txikiena:=a; if (b>d) then begin handiena:=b; tartekoa:=d; end else begin handiena:=d; tartekoa:=b; end; end else if (b<d) then begin txikiena:=b; if (a>d) then begin handiena:=a; tartekoa:=d; end else begin handiena:=d; tartekoa:=a; end; end else begin txikiena:=d; if (a>b) then begin handiena:=a; tartekoa:=b; end else begin handiena:=b; tartekoa:=a; end; end; Writeln('Handiena ',handiena,' Tartekoa ',tartekoa,' Txikiena ', txikiena); end.
run
|
edit
|
history
|
help
0
Инфаааааааааааааааа
4546
Pokazivac-dinamicka alokacija memorije
1 4 6
AreaTriangulo.pas
Prvi zadatak vezbe pokazivaci
practica 7 ejercicio 4
3
Project Euler 20 - Factorial digit sum
бассейн