Тема 7: Оператор цикла repeat

В каждой задаче выберите правильный ответ.
Затем нажмите кнопку "Оценить ответ"

var ss,tt:string; j:integer;
begin
ss:= 'student';  tt:=''; j:=6;
repeat
  tt:=char(byte(ss[j])+1)+tt;
  dec(j);
until ss[j]>'t';
write(tt); readln;
end.

var  sum,j: integer; 
begin sum:=0; j:=3;
repeat
  inc(j);
  if (j>2) and (j<7) then continue;
  inc(sum,j);
  if j>6 then break;
until j<=2;
write(sum); readln;
end.

var sum,rr:real; 
begin rr:=1; sum:=0;
repeat
  sum:=sum+rr;
  rr:=rr/2;
until rr < 0.124;
write(sum:0:3); readln;
end.

var sum:integer; bb:byte;
begin bb:=12; sum:=0;
repeat
  inc(sum,bb+2);
  bb:=bb*2;
until bb>90;
write(sum); readln;
end.

var bb:integer; sum:real;
begin bb:= 8; sum:=0;
repeat
repeat
  sum:=sum+bb;
  bb:= bb * 2;
until bb > 40;
until bb < 70;
write(sum:0:0); readln;
end.