Jak sprawdzić czy liczba jest parzysta
program parzysta_liczba;
uses crt;
var liczba:integer;
begin
write('Program sprawdza czy podana liczba jest parzysta');
writeln;
writeln;
write('Podaj liczbę: ');
readln(liczba);
if liczba mod 2=0 then writeln('Liczba jest parzysta')
else writeln('Liczba nie jest parzysta');
readln;
end.
uses crt;
var liczba:integer;
begin
write('Program sprawdza czy podana liczba jest parzysta');
writeln;
writeln;
write('Podaj liczbę: ');
readln(liczba);
if liczba mod 2=0 then writeln('Liczba jest parzysta')
else writeln('Liczba nie jest parzysta');
readln;
end.
Komentarze
Prześlij komentarz