Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
lala
program cantidad_pos_neg_con_asteriscos; var x,y,z:integer; begin x:=0; //contador de positivos z:=0; //contador de negativos //conteo de positivos write('POSITIVOS '); repeat read(y); if y>0 then begin x:=x+1; end else if y<0 then begin z:=z+1; end; until y=0; //conteo de negativos repeat write('*'); x:=x-1; until x=0; {descarga de datos} writeln(' '); write('NEGATIVOS '); repeat write('*'); z:=z-1; until z=0; writeln(' '); end. //escriba un programa en pascal que lea varios valores enteros, //que pueden ser pos. o neg. cuando se ingrese un cero el programa debe terminar mostrar un grafico //de cuantos valores pos y neg fueron ingresados, //tal como se muestran en los ejemplos: //POSITIVOS *** //NEGATIVOS *
run
|
edit
|
history
|
help
0
Looping (odd no.)
Laima
For6
tabeliran polinom
P170808E
урок 8 задача 5 символьный тип данных
Task 3a
Пиріжки
2
08 Ariketa REPEAT