Parzysta Nieparzysta
program parzysta_nieparzysta; {nagłówek, obowiązkowy - "program" oznacza program główny ale}
{może być też "unit" jako moduł programu (np: CRT)}
uses crt; {uzywa biblioteki crt (potrzebna do podstawowych operacji)}
var t:string; {deklaracja zmiennych}
BEGIN {początek programu}
writeln('Podaj dowolny ciąg znaków i nacisnij ENTER.'); {wyświetlenie napisu na ekranie}
readln(t); {pobranie łańcucha}
if length(t) mod 2 = 0 {Sprawdzenie podzielności długości łańcucha przez 2}
then writeln('Długość jest liczbą parzystą.') {jeśli podzielna}
else writeln('Długość jest liczba nieparzystą.'); {w innym przypadku}
readln; {pobranie danych, w tym przypadku zapobiega natychmiastowemu zamknięcia się okienka}
END. {koniec programu}
Podobne strony
Podobne Strony • Szyfr Cezara • Hello World • Sortowanie Babelkowe • Rok Przestepny • Wieża hanoi • wyswietlanie liczby calkowitej metodą odejmowania poteg • Ruchoma Gwiazdka • Sortowanie Przez Wstawianie • Sortowanie Przez Wybieranie • Nww • Metoda Babelkowa • Miejsca Zerowe Funkcji Kwadratowej • Fibonacci
wersja strony: 0, ostatnia edycja: 22 Nov 2008 23:16