o tai kas ce turi gautis? 0? "nieko"?

gale gali darasyt if b=1 then writeln('ivesti skaiciai mazesni arba lygus 
n')
                                  else writeln('sandauga:',b);

"Jomajo" <no@no.no> wrote in message 
news:g0da67$5ph$1@trimpas.omnitel.net...
> jeigu gerai supratau tai kodas atrodo taip:
>
> program UzdavinysNr1;
> var a, b, n : longint;
> begin
>  b := 1;
>  WriteLn('Programa apskaiciuos tik tu ivestu skaiciu sandauga, kurie 
> bus');
>  WriteLn('didesni uz jusu pasirinkta skaiciu n. Skaiciu sekai uzbaigti');
>  WriteLn('iveskite nuli.');
>  WriteLn('');
>  WriteLn('Iveskite n reiksme: ');
>  Writeln('');
>  Readln (n);
>  Writeln('');
>  WriteLn('Jusu pasirinkta n reiksme yra: ', n:2);
>  Writeln('');
>  WriteLn('Iveskite sekos skaicius');
>  WriteLn('');
>  Readln (a);
>  while a <> 0 do begin
>  if a > n then b := a * b;
>  Readln (a);
>  end;
>  WriteLn('Skaiciu sekos sandauga yra: ', b:2);
> end.
>
> bet pagal sita algoritma gaunasi tokia klaida, jeigu sekos skaiciai bus 
> lygus arba mazesni uz n skaiciu, tai tada sandauga bus lygi 1. Kaip 
> isspresti problema?
>
> "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.
>>>
>>
>>
>>
>
>