Treść zadania

Rozwiązania

• 

  0 0

  antekL1 4.6.2016 (10:17)

  // Zakładam,
  // że nie korzystamy z gotowych funkcji znajdujących min/maks dwu liczb.
  
  begin
  
  var
  a, b, c : Real; // Podawane liczby
  min, maks : Real; // Najmniejsza i największa liczba
  
  readln(a, b, c) ; // Wczytywanie liczb z klawiatury
  
  min := a; maks := a; // Wstępnie zakładamy, że może być to liczba "a"
  
  if b < min then min = b; // Korekta
  if b > maks then maks = b; // Korekta
  
  if c < min then min = c; // Korekta
  if c > maks then maks = c; // Korekta
  
  writeln('Liczba najmniejsza: ', min, ' największa: ', maks); // Wypisz rezultat
  
  end;

  Dodawanie komentarzy zablokowane - Zgłoś nadużycie