Задача 6(2) Урок 9

link

Пользователь вводит три числа, найдите из них максимальное.
С вложенными блоками (без and).

program lesson9_6_2;
var
  a, b, c: integer;
begin
  writeln('enter 3 number');
  readln(a, b, c);
  if(a > b) then
  begin
       if(a > c) then
            writeln(a, ' - max number')
  end;
  if(b > a)then
  begin
       if(b > c) then
          writeln(b, ' - max number')
  end;
  if(c > a)then
  begin
       if(c > b) then
            writeln(c, ' - max number');
  end;
  readln();
end.     
vedro-compota's picture

Нужно использовать оператор IF в полной форме (в т.ч. вложенный)

_____________
матфак вгу и остальная классика =)

program lesson9_6_2;
var
  a, b, c: integer;
begin
  writeln('enter 3 number');
  readln(a, b, c);
  if a > b then
       if a > c then
          writeln(a, ' - max number')
       else
          writeln(c, ' - max number')
  else
       if b > c then
          writeln(b, ' - max number')
       else
          writeln(c, ' - max number');
  readln();
end. 
vedro-compota's picture

решение засчитано

_____________
матфак вгу и остальная классика =)