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
Huong11a2@
practica 3 ejercicio 10
bilete
Lab1SumWithRepeat
Programa para calcular digito verificador de un RUT
3
Tugas1
pdp32
Вычисление cos(x) с помошью ряда Тейлора
test29