Question

Help!Помогите решить,можно ответ просто,но если не сложно - объясните.
Заранее огромное спасибо!

Answer 1

! ForTran 95
program for_help
implicit none
  integer :: x, y
  read *, x, y
 
  do while(x<16)
    if (x>y) then
      x = x - 2
      y = y + 4
    else
      x = x + 5
      y = y - 3
    end if
   
    print *, x, y
  end do

end program for_help

x = 3, y = 16
x|y
3 16
8 13
13 10
11 14
-------
16 11

x|y
7 9
12 6
10 10
15 7
13 11
11 15
--------
16 12