Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
08 for
//fpc 3.0.0 program HelloWorld; var contador:integer; a:integer; negatibo:integer; positibo:integer; begin negatibo:=0; positibo:=0; writeln('Irakurri hamar zenbaki'); for contador:=1 to 10 do begin readln(a); if (a<0) then begin negatibo:=(negatibo+1); end else begin positibo:=(positibo+1); end end; writeln(positibo,' zenbaki positibo daude, eta ',negatibo,' zenbaki negatibo daude'); end.
run
|
edit
|
history
|
help
0
test01
zad27-optimized
Naloga 5: 9.2.2011
kroliki
practica 5 ejercicio 5
Calculatrice 1.0
Bang cuu chuong
nomer2
07 Ariketa
09 Ariketa INTEGER