Book of tasks on programming. Old version

 

 by Aliaksandr N. Prykhodzka

 

схема, public, система счисления, assembler, reusing, floppy, jsp, calculator, протокол, update, address, update, сохраненная процедура, pointer, hierarchy
 

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

Pascal. Pa.20. Nest of tasks. Operator If with different operators

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.20.1     Answer      Java-analogue      Visual Basic-analogue

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


Program Key;
var
    i, dd : integer;
begin
    dd:=0;
    for i:=1 to 15 do
        if i mod 4 = 1 then dd:=dd+1;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.20.2     Answer      Visual Basic-analogue

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


Program Key;
var
    k, dd : integer;
begin
    dd:=0;    k:=0;
    repeat
        k:=k+1;
        if k div 3>3 then dd:=dd+1;
    until k=15;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.20.3     Answer      Visual Basic-analogue

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


Program AA;
var
    k, dd : integer;
begin
    dd:=0;    k:=15;
    repeat
        k:=k-1;
        if k div 3>3 then dd:=dd+1;
    until k=1;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.20.4     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    k, dd : integer;
begin
    dd:=0;    k:=0;
    while k<15 do begin
        k:=k+1;
        if k mod 2=1 then dd:=dd+1;
    end;
end.

 

 

Calculator

/ - division

\ - rest

S - sum of numbers from and to

P - multiply numbers from and to

Pa.20.5     Answer      Java-analogue      Visual Basic-analogue

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


Program AA;
var
    k, dd : integer;
begin
    dd:=0;    k:=16;
    while k>1 do begin
        k:=k-1;
        if k mod 2=1 then dd:=dd+1;
    end;
end.

 

©   Aliaksandr Prykhodzka    1993 - 2007