Помогите пожалуйста. Pascal

[Alma]

Помогите пожалуйста. Pascal

Помогите пожалуйста со 2 и 3 номерами

 

[Vladimir_S]

Помогите пожалуйста со 2 и 3 номерами

Со второй - и не подумаю "помогать": простейшее ветвление через оператор "if". Сами справитесь. Третью можно решать по-разному. Вот, например, самый лобовой способ:

Var
 a,b,c,x,y:Real;

Begin
 Write('a = ');
 Readln(a);
 Write('b = ');
 Readln(b);
 Write('c = ');
 Readln(c);
 Write('x = ');
 Readln(x);
 Write('y = ');
 Readln(y);
 if ((a<x) and (b<y)) or
    ((a<y) and (b<x)) or
    ((b<x) and (c<y)) or
    ((b<y) and (c<x)) or
    ((a<x) and (c<y)) or
    ((a<y) and (c<x)) then writeln('Yes!') else writeln('No!');
 Readln
End.