ДАЮ МНОГО БАЛЛОВ! 9 класс. Помогите пожалуйста! Нужно блок-схемы (на фото) преобразовать в программы Pascal
2)
1)var x:=0; var y:= 0; var r:= 0; var q:= 0;begin writeln(x); writeln(y); r:= x; q:= 0; while(r>=y)do begin r:= r-y; q:= q+1; end; writeln(r); writeln(q);end.
2) program e; var a : integer; b : integer; begin a:= 1; b:=1; repeat a:= a*2; b:= b+a; until a = 128; writeln(b); end.
3)program e; var i : integer; x : real; begin i:= 1; x:=10; repeat i:= i+1; x:= x+0.1*x; until x >= 25; writeln(i); end.