Pascal Kodesana

[SuperRembo]

Labie cilveki nevarat man palidzet sos abus variantus atrisinat please, vai ari info iedot par so OPERATORU.

Vai ir kada laga dvesele parkopeju no u4ika datora uzd, bet atrisinat pirmo reiz so nevaru

=====================================================

1. Kamēr netiks ievadīts skaitlis 0, atkārtot sekojošas darbības: pieprasīt ievadīt simbola kodu. Izvadīt uz ekrānu simbolu, kurš atbilstu ievadītajām kodam.

2. Pieprasīt ievadīt 1 veselu skaitli. Izveidot ciklu, kurš izvadītu uz ekrānu skaitļus no 1 līdz ievadītajam skaitlim.

3. Pilnveidot 2. uzdevumu tā, lai ciklā izvadītos tikai pāra skaitli.

4. Ciklā ievadīt 10 veselus skaitļus. Noteikt, cik daudz no tiem ir negatīvie skaitļi. Negatīvo skaitļu skaitu izvadīt uz ekrānu.

5. Sastādīt algoritmu, kurš aprēķinātu visu nepāra skaitļu summu diapazonā no 21 līdz 79.

Variants 2

1. Kamēr netiks ievadīts simbols *, atkārtot sekojošas darbības: pieprasīt ievadīt 1 simbolu. Izvadīt uz ekrānu kodu, kurš atbilstu ievadītajām simbolam.

2. Pieprasīt ievadīt 1 veselu skaitli. Izveidot ciklu, kurš izvadītu uz ekrānu skaitļus no ievadītā skaitļa līdz 1.

3. Pilnveidot 2. uzdevumu tā, lai ciklā izvadītos tikai nepāra skaitli.

4. Ciklā ievadīt 10 veselus skaitļus. Noteikt, cik daudz no tiem ir pozitīvie skaitļi. Pozitīvo skaitļu skaitu izvadīt uz ekrānu.

5. Sastādīt algoritmu, kurš aprēķinātu visu pāra skaitļu summu diapazonā no 18 līdz 82.

[worm]

ehh vecais labais pascal, kadreis pr0 biju

[Kavacky]

Bļeģ, iemācies tak, kā cikli jāraksta un varbūt problēmu nebūs.

Program asd;
Var ch : Char;
Begin
While not ( ch = '*' ) do Begin
  ReadLn(ch);
  WriteLn(Ord(ch));
End;
End.

[SuperRembo]

thx sis daudz palidzeja, vienkarsi kur es so rausu ja nemacija, ka saka u4iks atrodiet, kas zin un viss bus, ta ka to citi dara.