Book of tasks on programming. Old version

 

 by Aliaksandr N. Prykhodzka

 

const, database, фортран, html, object, counter, запрос, система счисления, void, string, unit, sql, tasks, xor, семинар, схема, object, const, обучение, javascript
 

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

Pascal. Pa.10. Nest of tasks. Nested operators For-For

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.1     Answer

Determine a sequence of numbers produced by this program


program Pr;
var
    k, n : integer;
begin
    for k:=1 to 2 do
        for n:=4 to 5 do begin
            write(k);
            write(' ');
            writeln(n);
        end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.2     Answer

Determine a sequence of numbers produced by this program


program Pr;
var
    k, n : integer;
begin
    for k:=1 to 3 do
        for n:=4 to 5 do begin
            write(k);
            write(' ');
            writeln(n);
        end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.3     Answer

Determine a sequence of numbers produced by this program


program Pr;
var
    k, n : integer;
begin
    for k:=1 to 2 do
        for n:=1 to 2 do begin
            write(k);
            write(' ');
            writeln(n);
        end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.4     Answer

Determine a sequence of numbers produced by this program


program Pr;
var
    k, n : integer;
begin
    for k:=1 to 2 do
        for n:=1 to 3 do begin
            write(k);
            write(' ');
            writeln(n);
        end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.5     Answer

Determine a sequence of numbers produced by this program


program Pr;
var
    k, n : integer;
begin
    for k:=1 to 3 do
        for n:=4 to 6 do begin
            write(k);
            write(' ');
            writeln(n);
        end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.6     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    xx, i, j : integer;
begin
    xx:=0;
    for i:=1 to 2 do
        for j:=i+1 to i+2 do xx:=xx+1;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.7     Answer      Java-analogue      Visual Basic-analogue

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


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

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.8     Answer      Java-analogue      Visual Basic-analogue

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


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

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.9     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    xx, i, j : integer;
begin
    xx:=0;
    for i:=1 to 4 do
        for j:=1 to 2 do xx:=xx+1;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.10     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    xx, i, j : integer;
begin
    xx:=0;
    for i:=5 to 9 do
        for j:=i-1 to i+1 do xx:=xx+1;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.11     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    xx, i, j : integer;
begin
    xx:=0;
    for i:=100 to 105 do
        for j:=i-50 to 60 do xx:=xx+1;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.12     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    xx, i, j, k : integer;
begin
    xx:=0;
    for i:=1 to 3 do begin
        j:=2*i-1;
        for k:=i to j do xx:=xx+1;
    end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.13     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    xx, i, j, k : integer;
begin
    xx:=0;
    for i:=1 to 5 do
        for j:=3 to 10-i do xx:=xx+1;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.14     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    xx, i, j, k : integer;
begin
    xx:=0;
    for i:=1 to 4 do
        for j:=i to 7 do xx:=xx+1;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.15     Answer

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


Program AA;
var
    xx, i, j, k : integer;
begin
    xx:=0;
    for i:=1 to 2 do
        for j:=1 to 3 do
            for k:=1 to 4 do xx:=xx+1;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.16     Answer

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


Program AA;
var
    xx, i : integer;
begin
    xx:=0;
    for i:=1 to 2 do xx:=xx+1;
    for i:=1 to 5 do xx:=xx+1;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.17     Answer

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


Program AA;
var
    xx, i, j, k : integer;
begin
    xx:=0;
    for i:=3 to 5 do begin
        j:=i*2-3;
        for k:=1 to j do xx:=xx+1;
    end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.18     Answer

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


Program AA;
var
    xx, i, j, k : integer;
begin
    xx:=0;
    for i:=1 to 3 do begin
        j:=i*3-2;
        for k:=1 to j do xx:=xx+1;
    end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.19     Answer

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


Program AA;
var
    xx, i, j, k : integer;
begin
    xx:=0;
    for i:=1 to 3 do
        for j:=4 to 5 do
            for k:=i to j do xx:=xx+1;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.10.20     Answer

Determine a value of the variable Sorry at the end of the following program


Program AA;
type
    QQ = (qq1, qq2, qq3, qq4, qq5, qq6, qq7, qq8, qq9);
    RR = (qq1 .. qq7);
    OO = (qq5 .. qq9);
var
    Sorry : QQ;
    RX : RR;
    OX : OO;
begin
    Sorry:=qq1;
    for RX:=qq1 to qq2 do
        for OX:=qq5 to qq7 do Sorry:=succ(Sorry)
end.

 

©   Aliaksandr Prykhodzka    1993 - 2007