Question

Напишите в Паскаль по этой блок схеме

Answer 1

Странный алгоритм :)

Надпись слева я не разобрал, оставил со знаком вопроса, подправите потом этот текст. И, если в сообщениях  x1 и x2 нужно было печатать в виде числа, то поставьте их перед текстом и отделите запятой, вот так: (x1, ' съест').

Сама программа:

var

 x1, x2, y: real;

begin

 Println('Введите значения x1, x2, y через пробел и нажмите Enter');

 Readln(x1, x2, y);

 x1 := y - x1;

 x2 := y - x2;

 if x2 < 0 then

   x2 := -x2;

 if x1 < 0 then

   x1 := -x1;

 if x1 = x2 then

   Println('В улетит?')

 else if x1 > x2 then

   Println('x2 съест')

 else Println('x1 съест');

end.