Задание 8 Урок 9

Задание 8 Урок 9

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

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

1 способ - С использованием логической операции and.

var a,b,c: integer;
begin
  writeln (' vvedite  chislo a');
  readln (a);
  writeln (' vvedite  chislo b');
  readln (b);
   writeln (' vvedite  chislo c');
  readln (c);
  if (a>b) and (a>c)
   then
   writeln ('naibolshee chislo a')
 else
   if (b>a) and (b>c)
   then
   writeln ('naibolshee chislo b')
  else
   if (c>a) and (c>b)
   then
   writeln ('naibolshee chislo c') ;

 readln();
end.

Консоль:

 vvedite  chislo a
9
 vvedite  chislo b
16
 vvedite  chislo c
4
naibolshee chislo b

2 способ - С вложенными блоками (без and, все операторы if должны быть в полной форме).

var a,b,c: integer;
begin
  writeln (' vvedite  chislo a');
  readln (a);
  writeln (' vvedite  chislo b');
  readln (b);
   writeln (' vvedite  chislo c');
  readln (c);

  if (a>b) then
   if (a>c) then
   writeln ('naibolshee chislo a')
 else
   if (b>c) then
    if (b>a) then
   writeln ('naibolshee chislo b')
  else  if (c>b) then
     if (c>a) then
   writeln ('naibolshee chislo c')  ;
 readln(); 
end.
                 

Консоль:

 vvedite  chislo a
8
 vvedite  chislo b
4
 vvedite  chislo c
7
naibolshee chislo a

3 способ -Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной

var a,b,c,max: integer;
begin
  writeln (' vvedite  chislo a');
  readln (a);
  writeln (' vvedite  chislo b');
  readln (b);
   writeln (' vvedite  chislo c');
  readln (c);

  if (a>b) then
   max:= a
 else
  max:= b;

   if ( max < c) then
   max:= c;
   writeln ('naibolshee chislo =  ', max );
 readln(); readln();
end.

Консоль:

 vvedite  chislo a
6
 vvedite  chislo b
3
 vvedite  chislo c
8
naibolshee chislo =  8