На вход программы, фрагмент которой ниже, поданы числа 10 и 15.
read x, y;
if x> y then begin x: =x – y; y: =x+y end
else begin y: =y – x; x: =x - y end;
write (x, ‘ ‘, y)
какие значения будут выведены после выполнения этого фрагмента?

10 15

-5 5

5 50

5 5

ответ:

5 5

объяснение:

если x > y (10> 15) то x будет равняться x-y = 10-15 = -5, а y будет равняться x+y = -5+10 = 5. если x> y не получается, то произойдёт действие команды "else", при которой пишуться действия, если по верхнему условию получилась ложь. наши действия в else: y = 15-10 = 5; x = 10-5 = 5. наш условный оператор окончен, выводим значения командой "write": write (x, ' ', y);

окно вывода:

вводим число 10, после 15 и получаем:

5 5

конец программы.

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.

program zadacha2;

  uses crt;

  var i,n,a: integer;

            b,y,c,l: real;

begin

clrscr;

readln(n);

  a: =1;

  b: =2;

  c: =5;

  for i: =1 to n do                                                                                          

                                                                                                  begin  

if a mod 2 = 0 then

l: =a+b/c

else          

l: =a-b/c;

a: =a+1;

b: =b+2;

c: =c+5;

y: =y+l;

                                                                                                    end;

writeln(y: 2: 2);

readkey;

  end.

первую по подробней расспишите