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
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.