Главная » Помощь в учебе » Школьные знания, ответы и решения школьных заданий » Информатика

Составьте не менее трех вариантов программы определения наименьшего из трех данных чисел

Нашли ошибку? Напишите нам
0.0/5, Голосов: 0

Учебник по Информатике 9 класс Семакин

Составьте не менее трех вариантов программы определения наименьшего из трех данных чисел.    
Program MIN_1;
var A, B, C, D: real;
begin
   readln(A,B,C);
   if A<=B then D:=A else D:=B
   if C<=D then D:=C
   writeln ('Наименьшее число: ', D)
end.

Program MIN_2;
var A, B, C, D: real;
begin
   readln(A, B, C);
   if A<=B
      then if A<=C then D:=A else D:=C
      else if B<=C then D:=B else D:=C;
   writeln ('Наименьшее число: ', D)
end.

Program MIN_3;
var A, B, C, D: real;
begin
   readln(A, B, C);
   if (A<=B) and (A<=C)
      then D:=A
      else if (B<=A) and (B<=C)
      then D:=B
      else D:=C;
   writeln ('Наименьшее число: ', D)
end.