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

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

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

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

1 вариант:

var a,b,c:integer;
begin
  writeln('Vvedite pervoe chislo: ');
  readln(a);
  writeln('Vvedite vtoroe chislo: ');
  readln(b);
  writeln('Vvedite tretye chislo: ');
  readln(c);
  if (a>b)and(a>c) then
     writeln(a,' - maksimalnoe chislo')
  else
    if (b>a)and(b>c) then
      writeln(b,' - maksimalnoe chislo')
    else
      writeln(c,' - maksimalnoe chislo');
    readln();
end. 

2 вариант:

var a,b,c:integer;
begin
  writeln('Vvedite pervoe chislo: ');
  readln(a);
  writeln('Vvedite vtoroe chislo: ');
  readln(b);
  writeln('Vvedite tretye chislo: ');
  readln(c);
  if (a>b) then
    if (a>c) then
      writeln(a,' - maksimalnoe chislo')
    else
      writeln(c,' - maksimalnoe chislo')
  else
    if (b>c) then
      writeln(b,' - maksimalnoe chislo')
    else
      writeln(c,' - maksimalnoe chislo');
  readln();
end.         

3 вариант:

var a,b,c,max:integer;
begin
  writeln('Vvedite pervoe chislo: ');
  readln(a);
  writeln('Vvedite vtoroe chislo: ');
  readln(b);
  writeln('Vvedite tretye chislo: ');
  readln(c);
  if a>b then
    max:=a
  else
    max:=b;
  if c>max then
      writeln(c,' - maksimalnoe chislo')
  else
      writeln(max,' - maksimalnoe chislo');
  readln();
end.    

Вид консоли при всех вариантах:

Vvedite pervoe chislo:
87
Vvedite vtoroe chislo:
35
Vvedite tretye chislo:
11
87 - maksimalnoe chislo