Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
ariketa 05
//fpc 3.0.0 program HelloWorld; var z:integer; begin writeln('Idatzi zenbaki bat'); readln(z); if z>10 then begin writeln(z,' Zenbakia 10 baino handiagoa da'); end else begin if z<10 then begin writeln(z,' Zenbakia 10 baino txikiagoa da'); end else begin writeln(z,' Zenbakia 10 da'); end; end; end.
run
|
edit
|
history
|
help
0
BubbleSor (slimmer)
Стандартные функции в паскале round, trunc, int, frac
Project Euler 20 - Factorial digit sum
2
NguyenThanhThe11Sinh
test14
звёздное небо и подсчёт кратных звёзд + массив
Pascal First
Bilangan fibonacci ke-n
1486