idomu, kas bus, jeigu ivesiu ne skaiciu, o raide ?
arba paspausiu F1-F10 ?

"Jomajo" <no@no.no> rašė 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.
>>>
>>
>>
>> 
> 
> 
>