pirmas:

prilygini b=1
ivedi n
ivedi pirma sekos nari a

darai cikla kad while a <> 0 do begin
if a>n then b=a*b
readln(a) ce ivedam antra nari.. ir tt..
end;

nu ir viskas
writeln(b)

END. :)

jei da miegas neims paziuresiu tai ir antra pazesiu


"Jomajo" <no@no.no> wrote in message 
news:g0cs69$uvv$1@trimpas.omnitel.net...
> reiktu isspresti tokias uzduotis:
>
> 1. Parasykite algoritma klaviatura renkamos skaiciu sekos nariu, didesniu 
> uz n, sandaugai suskaiciuoti. Sekos paskutinysis narys-nulis.
>
> 2. Sveikuju skaiciu seka surenkama klaviatura. Paskutinysis sekos narys - 
> nulis. Parasykite algoritma sekos nariu zenklams pakeisti priesingais, 
> pradinei bei naujai gautai sekoms spausdinti.
>