Algorytm w Pascalu (liczby nieparzyste)

0

Witam, mam do napisania algorytm w pascalu który: wypisuje wszystkie liczby 2 cyfrowe, których iloczyn jest nieparzysty. Niestety nie wiem jak to ruszyć. Pomoże ktoś ? Dzięki

0

Może ci się przydać

program Licz_Parzys;
uses crt;
var a, b, c, d, e: integer;

begin
 clrscr;
 writeln('    -----------------------------------');
 writeln('    --- Program sprawdza czy liczba ---');
 writeln('    -- jest parzysta lub nieparzysta --');
 writeln('    -----------------------------------');
 writeln('');
 writeln('Podaj pierwszą liczbe');
 readln(a);
 writeln('Podaj drugą liczbe');
 readln(b);
 writeln('Podaj trzecią liczbe');
 readln(c);
 writeln('Podaj czwartą liczbe');
 readln(d);
 writeln('Podaj piątą liczbe');
 readln(e);
 writeln('Liczba ',(a div 2) * 2 = a);
 readln;

end.

Wystarczy że sprawdzisz czy wczytane przez ciebie liczby są podzielne przez 2 jeśli tak to są parzyste - pozostałe nie :)

0
Dj_Jancio napisał(a)

Witam, mam do napisania algorytm w pascalu który: wypisuje wszystkie liczby 2 cyfrowe, których iloczyn jest nieparzysty. Niestety nie wiem jak to ruszyć. Pomoże ktoś ? Dzięki

program nieparzyste;
var i,j:Integer;
begin
 for i:=1 to 9 do
   for j:=1 to 9 do
   if  (i*j) mod 2=1 then writeln(i,j);
end.

1 użytkowników online, w tym zalogowanych: 0, gości: 1