Задача 8. Урок 9.

Задача 8. Урок 9.

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

1. С использованием логической операции and.
2. С вложенными блоками (без and, все опараторы if должны быть в полной форме).
(Если не получается - см. разбор решения(link is external))
3. Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.
(Если не получается - см. разбор решения(link is external))

1.

var
  a, b, c: integer; // для целых чисел
begin
  writeln('Vvedite chislo a: '); // вводим число "a"
  read(a);
  writeln('Vvedite chislo b: '); // вводим число "b"
  read(b);
  writeln('Vvedite chislo c: '); // вводим число "c"
  read(c);
  if (a>b) and (a>c) then
  writeln('Maksimalnoe chislo:  ',a); // выводим максимальное число, если "a"
  if (b>c) and (b>a) then
  writeln ('Maksimalnoe chislo:  ',b); // выводим максимальное число, если "b"
  if (c>a) and (c>b) then
  writeln ('Maksimalnoe chislo:  ',c); // выводим максимальное число, если "c"

  readln();
  readln();
  end.  

Консоль:

Vvedite chislo a:
10
Vvedite chislo b:
20
Vvedite chislo c:
30
Maksimalnoe chislo:  30

2.

var
  a, b, c: integer; // для целых чисел
begin
  writeln('Vvedite chislo a: '); // вводим число "a"
  read(a);
  writeln('Vvedite chislo b: '); // вводим число "b"
  read(b);
  writeln('Vvedite chislo c: '); // вводим число "c"
  read(c);
  if (a>b) then
  if (a>c) then
  writeln('Maksimalnoe chislo:  ',a) // выводим максимальное число, если "a"
  else
  writeln('Maksimalnoe chislo:  ',c) // выводим максимальное число, если "c"
  else
  if (b>c) then
  writeln('Maksimalnoe chislo:  ',b) // выводим максимальное число, если "b"
  else
  writeln('Maksimalnoe chislo:  ',c); // выводим максимальное число, если "с"

  readln();
  readln();
  end.

Консоль:

Vvedite chislo a:
3
Vvedite chislo b:
2
Vvedite chislo c:
1
Maksimalnoe chislo:  3

3.

 var
  a, b, c, max: integer; // для целых чисел
begin
  writeln('Vvedite chislo a: '); // вводим число "a"
  read(a);
  writeln('Vvedite chislo b: '); // вводим число "b"
  read(b);
  writeln('Vvedite chislo c: '); // вводим число "c"
  read(c);
  if (a>b) then // если "a" больше "b
  max:=a // "a" максимум
  else
  max:=b; // иначе максимум "b"
  if (max<c) then // если максимум меньше "c"
  max:=c; // "с" максимум
  writeln('Maksimalnoe chislo:  ',max); // выводим "Максимальное число"

  readln();
  readln();
  end. 

Консоль:

Vvedite chislo a:
223
Vvedite chislo b:
500
Vvedite chislo c:
177
Maksimalnoe chislo:  500