Странно записано правило, в условии. Именно оно, по каким-то причинам выдает ошибка при компиляции. Однако, не исключаю возможности, что я где-то допустил ошибку сам, а правило в условии все же задано верно.
Я поменял правило, поэтому компиляция прошла успешна. А вообще, я даже задание смутно понял:D
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.
таблицу сам
Відвідувало 3+ відвідують 2+перейшов1=6 учнів
Не знаю но может другие помогут