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. >