Napisz program, który spośród czterech podanych przez użytkownika liczb wybierze największą z nich i wypisze ją na ekranie. Spróbuj przewidzieć wszystkie trudne kombinacje liczb a,b,c i d. Czy może być problem w którymś z przypadków?
Program ma zostać napisany w PASCALU, początek już mam, zależy mi na części od if.
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.
program zaq;
uses crt;
var
liczba:array[0..3] of integer;
max,i:integer;
begin
clrscr;
For i := 0 to 3 do begin
Writeln('podaj ',i+1,' liczbe: ');
readln(liczba[i]);
end;
max := liczba[0];
for i := 1 to 3 do
if liczba[i] > max then max := liczba[i];
Writeln('Najwieksza liczba to: ', max);
readln;
end.