Question

Срочно, прошу помочь. Работать нужно с ABC PASCAL. Мне нужна программа ( INTEGER,VAR, REAL, PROGRAM) что бы все было, и закночить таблицу. Начать нужно со второго примера. Можете нарисовать и скинуть фотку, но пожалуйста сделайте

Answer 1

2)var x,y:integer;beginreadln (x,y);        while x<16 do           begin   if x>y then   beginx:=x-2;y:=y+4   end      else beginx:=x+5;y:=y-3; end;                       end;writeln ('x=',x,'y=',y);end.  
криво но работает,там в таблице строка слева на право 16 11 16 12 и так вниз,так условие постоянно не выполняется (16<16 не выполняется)
3)var x,y:real;beginreadln (x,y);while x<0 dobeginif x<y thenbeginx:=x+1;y:=y/2;endelsebeginx:=x+3;y:=y-2;end;end;x:=x-5;y:=y+3;writeln ('x=',x,'y=',y);end.
таблицу сам