pascal uždavinys

mokytojas uždavė parašyt programą, kad parašius bet kokį skaičių programa parašytų ar jame yra lyginių skaičių.Gal galit ant kelio užvest, parašyt kažkiek, nes nesuprantu kaip čia ką daryti

Jei skaičius dalinasi iš dviejų be liekanos, pvz kintamasis sk mod 2 = 0 tai jis lyginis

Ai dar plius reikia sukti while ciklą, kuris vis paimtu paskutinį skaitmenį ir tikrintu ar lyginis

a := sk mod 10 paims paskutinį skaitmenį

while sk > 0

a := sk mod 10;

ar a lyginis

sk div 10; // vis mažinam skaičių pvz iš 123 po vieno ciklo bus 12 po antro 1 liks tiktai jau

Man reikia, kadt jei pvz. paskutines skaitmuo ne 2,4,6... o 1,3,5, tačiau gal kiti yra lyginiai.

Ta prasme čia ne tas, kad reikia pažiūrėt ar parašytas skaičius lyginis, tačiau ar parašytame skaičiuoje yra lyginių skaitmenų

Ai tai naudoti boolean reikia, jeigu randa tai boolean reiškmę statai true ir po ciklo rašai if kintamasis = true tada yra lyginių

if n/2 then WriteLn ('Skaičius lyginis') else WriteLn ('Skaičius nelyginis');

berodc taip

Man reikia, kadt jei pvz. paskutines skaitmuo ne 2,4,6... o 1,3,5, tačiau gal kiti yra lyginiai.

 

Ta prasme čia ne tas, kad reikia pažiūrėt ar parašytas skaičius lyginis, tačiau ar parašytame skaičiuoje yra lyginių skaitmenų

program lyginiai;

Var i, x : integer;
   sk : string;

begin
 WriteLn('iveskite skaiciu: ');
 Readln(sk);
 x := 0;
   for i := 1 to length(sk) do
       if (sk[i] = '0') or
          (sk[i] = '2') or
          (sk[i] = '4') or
          (sk[i] = '6') or
          (sk[i] = '8') then
           x := x + 1;
       if x > 0 then WriteLn('Skaicius ',sk,' turi lyginiu skaitmenu')
                else WriteLn('skaicius ',sk,' neturi lyginiu skaitmenu');
ReadLn;
end.

o jei su ciklu while?

o jei su ciklu while?

reiktų skaičių dar skaidyt į skaitmenis, kam to reik :) va iškart tikrini ir jėga ;D