Тема 6: Оператор цикла while

Варианты ответа

tqmq
splp
tqmpf
mtqmp
Программа вызовет
ошибку при выполнении
Программа вызовет
ошибку компиляции

var ss,tt:string;   j:integer;
begin
ss:= 'krokodill';  tt:=''; j:=2;
while  ss[j]<>'d' do
   begin
      tt:=tt+char(byte(ss[j])+2);
      inc(j);
   end; write(tt); readln;
end.

Варианты ответа

11
7
13
20
Программа вызовет
ошибку при выполнении
Программа вызовет
ошибку компиляции
16

var  sum,j: integer; 
begin sum:=0; j:=1;
while 5>3 do 
   begin inc(j);
       if (j>2) and (j<5) then continue;
       inc(sum,j);
       if j>5 then break;
   end;
write(sum); readln;
end.

Варианты ответа

1.750
1.75
1.500
Программа вызовет
ошибку при выполнении
Программа вызовет
ошибку компиляции
1.875
1.88

var sum,rr:real; 
begin rr:=1; sum:=0;
    while rr > 0.126 do
        begin
           sum:=sum+rr;
           rr:=rr/2;
        end;
write(sum:0:3); readln;
end.

Варианты ответа

896
1920
384
128
Программа вызовет
ошибку при выполнении
Программа вызовет
ошибку компиляции

var sum:integer; bb:byte;
begin bb:=128; sum:=0;
while bb<1024 do 
  begin
     inc(sum,bb);
     bb:=bb*2;
  end;
write(sum); readln; 
end.

Варианты ответа

8.75E-01
0.875
Программа вызовет
ошибку при выполнении
Программа вызовет
ошибку компиляции
1.875E00
8.75000000000000E-0001

var bb:integer; sum:real;
begin bb:= 1/8; sum:=0; 
while bb < 1 do
  begin
     sum:=sum+bb;
     bb:= bb * 2;
  end;
write(sum); readln;
end.