Potrzebuje zadnaie w turbo pascalu. Napisz program w ktorym wprowadzasz numer i wyśwetla sie komunikat że jest jezeli ma początek 55278 lub 55643 a końcowka moze być inna lub ze niema takiego numeru jezli niema takiego początku. Należyw wykorzystać typ zbiowy lub łańcuch.
More Questions From This User See All
Recommend Questions
mkaminski185
October 2020 | 0 Replies
1. Jakie zagadnienia (trzy elementy) obejmuje technologia informacyjna?2. Jakie elementy znajdują się na płycie głównej komputera – opisz krótko ich funkcje:• procesor:• pamięć RAM:• chipset:• karty rozszerzeń lub kontrolery zintegrowane z płytą główną:• pamięć ROM:3. Jakie urządzenia, obok płyty głównej, mogą znajdować się wewnątrz obudowy komputera?4. Wymień urządzenia zewnętrzne (peryferyjne).5. Co to jest system operacyjny i jak nazywają się najpopularniejsze systemy operacyjne?6. Opisz system plików w systemie Windows.7. Jakie to pliki (formaty plików):• *.exe:• *.pdf:• *.txt:• *.doc:• *.xls:• *.jpg:• *.png:• *.doc:• *.mp3:• *.mp4:
laurasleczka2009
October 2020 | 0 Replies
Ważne. Posłuchajcie mam problem zawsze jak włączam firefox to włącza mi się ta sama strona. Czyli ( Dajmy na to że pisze sobie coś na wordzie i chce poszukąć coś w firefoxie no go odpalam i patrze pierwsza strona jaka mi się otworzy to yt) I nie wiem czego tak się dzieje proszę pomocy.
laurasleczka2009
October 2020 | 0 Replies
Ważne. Posłuchajcie mam problem zawsze jak włączam firefox to włącza mi się ta sama strona. Czyli ( Dajmy na to że pisze sobie coś na wordzie i chce poszukąć coś w firefoxie no go odpalam i patrze pierwsza strona jaka mi się otworzy to yt) I nie wiem czego tak się dzieje proszę pomocy.
// Turbo Pascal? :|
// DOS wyszedł z mody kilkanaście lat temu, dodatkowo TP jest płatne i słabe...
Var Str: String;
Begin
Readln(Str);
if (Copy(Str, 1, 5) = '55278') or (Copy(Str, 1, 5) = '55643') Then
Writeln('Istnieje') Else
Writeln('Nie istnieje');
End.