Book of tasks on programming. Old version

 

 by Aliaksandr N. Prykhodzka

 

file, off-line, file, record, чайник, of, USB, editor, публикация, навучальны зборнiк па праграмаванню, object, monitor, среда разработки, of, электронный репетитор
 

for valuable work you must have JavaScript (allow active content)

Pascal. Pa.13. Nest of tasks. Operator Repeat

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.13.1     Answer      Visual Basic-analogue

Determine a value of the variable xx after executing the following program


Program AA;
var    xx, k : integer;
begin
    xx:=0;    k:=0;
    repeat
        xx:=xx+1;
        k:=k+1;
    until k=7;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.13.2     Answer      Visual Basic-analogue

Determine a value of the variable xx after executing the following program


Program AA;
var    xx, k : integer;
begin
    xx:=0;    k:=2;
    repeat
        xx:=xx+1;
        k:=k+1;
    until k=7;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.13.3     Answer      Visual Basic-analogue

Determine a value of the variable xx after executing the following program


Program AA;
var    xx, k : integer;
begin
    xx:=0;    k:=0;
    repeat
        xx:=xx+1;
        k:=k+3;
    until k>20;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.13.4     Answer      Visual Basic-analogue

Determine a value of the variable xx after executing the following program


Program AA;
var    xx, k : integer;
begin
    xx:=0;    k:=1;
    repeat
        xx:=xx+1;
        k:=k*2;
    until k>30;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.13.5     Answer      Visual Basic-analogue

Determine a value of the variable xx after executing the following program


Program AA;
var    xx, k, j : integer;
begin
    xx:=0;    k:=0;
    repeat
        xx:=xx+1;
        for j:=1 to 3 do k:=k+1;
    until k>20;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.13.6     Answer      Visual Basic-analogue

Determine a value of the variable xx after executing the following program


Program AA;
var    xx, k, j : integer;
begin
    xx:=0;    k:=1;
    repeat
        xx:=xx+1;
        for j:=1 to 2 do k:=k*2;
    until k>60;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.13.7     Answer      Visual Basic-analogue

Determine a value of the variable xx after executing the following program


Program AA;
var    xx, k : integer;
begin
    xx:=0;
    for k:=1 to 3 do
        repeat
            xx:=xx+1
        until xx>4;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.13.8     Answer      Visual Basic-analogue

Determine a value of the variable xx after executing the following program


Program AA;
var    xx, k : integer;
begin
    xx:=0;
    for k:=1 to 2 do
        repeat
            xx:=xx+1
        until xx>1;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.13.9     Answer      Visual Basic-analogue

Determine a value of the variable xx after executing the following program


Program AA;
var    xx, k : integer;
begin
    xx:=0;
    for k:=1 to 3 do
        repeat
            xx:=xx*2+1
        until xx>5;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.13.10     Answer      Visual Basic-analogue

Determine a value of the variable xx after executing the following program


Program AA;
var    xx, k, n : integer;
begin
    xx:=0;    k:=0;
    repeat
        k:=k+1;
        n:=0;
        repeat
            n:=n+1;
            xx:=xx+1
        until n=2
    until k=3
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.13.11     Answer      Visual Basic-analogue

Determine a value of the variable xx after executing the following program


Program AA;
var    xx, k, n : integer;
begin
    xx:=0;    k:=0;
    repeat
        k:=k+2;
        n:=0;
        repeat
            n:=n+3;
            xx:=xx+1
        until n>k
    until k>10
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.13.12     Answer      Visual Basic-analogue

Determine a value of the variable xx after executing the following program


Program AA;
var    xx, k : integer;
begin
    xx:=0;    k:=0;
    repeat
        xx:=xx+1;
        k:=k*3+2;
    until k>20;
end.

 

©   Aliaksandr Prykhodzka    1993 - 2007