gal dar neik miegoti, ka? :)
Aciu
"Dzytaras" <spam@freemail.lt> wrote in message 
news:g0d1io$2u8$1@trimpas.omnitel.net...
> 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.
>>
>
>
>