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
2sdfghkl
Find the greatest integers - v2
Квартира Задача 6.14 учебн. Грицанова
Исправленный NOD без массивов и алгоритма Евклида
Poukimone1 tg
Pasha
lecturas
Tri 1.0
1januar2018
Kotak_Adit