www.techinf1.fora.pl

isar

do obydwu zadan (wypisywanie liczb nieparzystych, i parzystych) bedzie nam potrzebna reszta dzielenia (mod) przez dwa. a zadanie bedzie wygladalo tak:

program parzyste ;
var liczba: integer ;
pet : integer ;
tab : array[1..100] of real;
begin
liczba:=100;
for pet:=1 to 100 do
begin
if liczba mod 2=0 then tab[pet]:=liczba; {jezeli liczba parzysta to}
{ja przypisuje do tablicy}

if liczba mod 2=0 then writeln(liczba); {jezeli liczba jest parzysta to ja }
{wyswietla }
liczba:=liczba-1;
end;
readln;
end.

na tej samej zasadzie robimy program ktory bedzie nam wyswietlal liczby nieparzyste, tylko wynik z dzialania: liczba mod 2 musi wynosic 1.