Pascal - Konsolowe

Parzysta czy nieparzysta

Parzysta czy nieparzysta
Pascal - Konsolowe

Program: sprawdzający czy wprowadzona liczba jest parzysta czy nieparzysta.

Użytkownik wprowadza jedną liczbę, po czym program wykonuje sprawdzenie.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program parzysta;
uses crt;
var x:integer;
begin
     clrscr;
     write('Podaj liczbe: ');
     read(x);
        if(x mod 2=0) then
             write('Podana liczba jest parzysta')
        else
            write('Podana liczba jest nieparzysta');
        readkey;
end.