Programma Pascalā-palīgā!

Te dažas zin paskālu. Tātur, resnā... Viela pārdomām - ja huiņa patiesa tad piepluso 1 pie "counter'. Beigās writeln(counter);

nodefinējam a b c

shite = array

for a:=1 to garumsNo(shite) do
if ((shite==1)or(shite==2)or(shite==3)or(shite==4)) then counter=counter+1;

writeln(counter);

Ai, forums aizfiltēja prom pusi no mana koda.

Paldies, ideja apmēram skaidra, tikai daži sīkumi traucē pabeigt programmu.:-D

Vari uzrakstīt man PM, labprāt palīdzēšu :-)

Atrisināts. :)

Archibalds Tepums tev par tavu neuzkrītošo centību.



p.s. Tā bilde vienkārši skaistumam.

Blacksmith, nav jau grūti veltīt 3 minūtes sava laika, lai uzrakstītu mazu programmiņu un kādam izpalīdzētu.

To pašu novēlu arī Tev - vairāk dot, mazāk ņemt. :-D