Pascal uždavinys

Sveiki, užduotis tokia: iš intervalo reikia išrinkti skaičius, kurių skaitmenys lyginiai, pvz.: 2, 22, 264, 8642...

Reikėtų panaudoti procedūrą. Gal kas žino, bent kaip išsrpęsti ir be procedūros? :)

Naudoji ciklą for, tikrinti ar lyginiais skaičiai gali pvz: x mod 2 = 0

Pasirašyk viską paprastai, o vėliau įkelsi į procedurą ir padarysi kreipinį

Naudoji ciklą for, tikrinti ar lyginiais skaičiai gali pvz: x mod 2 = 0

Pasirašyk viską paprastai, o vėliau įkelsi į procedurą ir padarysi kreipinį

ir nepamiršk patikrint ar x != 0

ir nepamiršk patikrint ar x != 0

Teoriškai nulis yra lyginis skaičius. Taigi nereikia tikrint.

Teoriškai nulis yra lyginis skaičius. Taigi nereikia tikrint.

Taip, atsiprašau, pasigooglinau ir dabar matau. Pasirodo mokykloje ne visada tiesos moko :rolleyes:

Tai kas per daiktas yra nulis jūsų mokykloje? :D

ta as suprantu, bet kaip patikrinti ar visi skaitmenys skaiciaus lyginiai? pvz 10 netinka

program Noname1;
   var a,b:integer;

procedure tikrinti(var a:integer);
var a1,i,j,b1:integer;
begin
   i:=0;
   j:=0;
   b1:=0;
   a1:=a;
   while a1 <> 0 do
   begin
       j:=j+1;
       b1:=a1 mod 10;
       a1:=a1 div 10;
       if b1 mod 2 = 0 then
       begin
           i:=i+1;
       end;
   end;
   if i = j then
   Writeln(a);
end;

begin
   Writeln('Iveskite intervala');
   Readln(a,b);
   while a <= b do
   begin
       tikrinti(a);
       a:=a+1;
   end;
   readln;
end.

Procedūroje dalini skaičių tol kol dalinasi iš 10, poto žiūri ar visi skaitmenys buvo lyginiai ar ne visi. Jei visi lyginiai - išvedi skaičių, jei ne - neišvedi. :)

dekui, pas mane tikrinime ne taip buvo :)

Nelabai patinka toks tikrinimas. Čia labiau tiktų funkcija, kuri gražina boolean reikšmę pasakančią ar skaičius lyginis. Man toks algoritmas priimtinesnis

even := true;
t := n;
while(even and (t <> 0)) do begin
 digit := t mod 10;
 t := t div 10;
 if ((digit % 2) <> 0)) then even := false;
end;
return even; //atrodo paskalyje kitaip reikia rašyti, neprisimenu

Paskalio sintaksės neprisimenu ir kodo netestavau.