Napisz program w Pascalu W długie zimowe wieczory Antek z Zuzią lubią bawić się w pisanie liczb na małych różnokolorowych karteczkach. Na każdej z karteczek zapisują tylko jedną liczbę. Na zakończenie zabawy mieszają wszystkie karteczki i losują trzy z nich. Wygrywa ta karteczka z wylosowanych, na której napisana jest minimalna liczba. Napisz program, który: -wczyta ze standardowego wejścia trzy liczby całkowite, -znajdzie minimalną z nich, -wypisze wynik na standardowe wyjście. W trzech kolejnych wierszach zapisane są liczby całkowite z zakresu od -1 000 000 000 do 1 000 000 000. Program powinien wypisać minimalną liczbę z podanych na wejściu Dla danych wejściowych:19, 18, 1973241 poprawną odpowiedzią jest:18.
znaki "-----" nie należą do kodu tylko poprawiają jego czytelność
program karteczki; var liczba: longint; -----min: longint;
begin -----read (min, liczba); {wczytujemy 2 liczby, pierwsza na razie minimalna} -----if liczba < min then min := liczba; {sprawdzamy czy 2 > 1} -----readln (liczba); {wczytujemy 3. liczbe} -----if liczba < min then min := liczba; {spradzamy czy 3 najmniejsza} -----writeln (min); {wypisujemy najmniejsza} -----readln; {aby okno od razu nie zniklo} end.
znaki "-----" nie należą do kodu tylko poprawiają jego czytelność
program karteczki;
var liczba: longint;
-----min: longint;
begin
-----read (min, liczba); {wczytujemy 2 liczby, pierwsza na razie minimalna}
-----if liczba < min then min := liczba; {sprawdzamy czy 2 > 1}
-----readln (liczba); {wczytujemy 3. liczbe}
-----if liczba < min then min := liczba; {spradzamy czy 3 najmniejsza}
-----writeln (min); {wypisujemy najmniejsza}
-----readln; {aby okno od razu nie zniklo}
end.
jak masz pytania to pisz na pw