Napisz program w wersji (REPEAT, WHILE) który wczyta po kolei liczby aż do momentu wystąpienia zera. Podczas wczytywania program wyświetla komunikat czy dana liczba jest większa czy mniejsza od zera.
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.
Program kat;
uses CRT;
var
liczba:integer;
begin
clrscr;
repeat
Writeln('Podaj liczbe');
readln(liczba);
if liczba > 0 then Writeln('Wprowadzona liczba jest wieksza od 0') else
if liczba < 0 then Writeln('Wprowadzona liczba jest mniejsza od 0');
Writeln;
until liczba=0;
Writeln('Wprowadzono 0, program konczy dzialanie.');
readln;
end.
Wersja while:
Program kat;
uses CRT;
var
liczba:integer;
begin
clrscr;
liczba := 1;
while liczba <> 0 do begin
Writeln('Podaj liczbe');
readln(liczba);
if liczba > 0 then Writeln('Wprowadzona liczba jest wieksza od 0') else
if liczba < 0 then Writeln('Wprowadzona liczba jest mniejsza od 0');
Writeln;
end;
Writeln('Wprowadzono 0, program konczy dzialanie.');
readln;
end.
W razie jakiś reklamacji napisz mi prywatną wiadomość.