Приходько А. Н.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.31.1    Ответы    Java-аналог    Visual Basic-аналог

Определить, какое число будет выдано на экран дисплея после выполнения следующей программы.

Program AA;
var
    s, i : integer;
function Pr1 (n : integer) : integer;
begin
    Pr1:=n*(n-1);
end;
function Pr2 (k, n : integer) : integer;
begin
    Pr2:=k*k-n*n;
end;
begin
    s:=0;
    for i:=1 to 2 do s:=s+Pr1(Pr2(i+1,i));
    writeln(s);
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.31.2    Ответы    Java-аналог    Visual Basic-аналог

Определить, какое число будет выдано на экран дисплея после выполнения следующей программы.

Program AA;
var
    s, i : integer;
function Pr1 (n : integer) : integer;
begin
    Pr1:=n+1;
end;
begin
    s:=1;
    for i:=1 to 4 do s:=Pr1(s);
    writeln(s);
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.31.3    Ответы    Java-аналог    Visual Basic-аналог

Определить, какое число будет выдано на экран дисплея после выполнения следующей программы.

Program AA;
var
    m, j : integer;
function Pr (n : integer) : integer;
var
    i, s : integer;
begin
    s:=0;
    for i:=1 to n do s:=s+i;
    Pr:=s;
end;
begin
    m:=1;
    for j:=1 to 3 do m:=m*Pr(j);
    writeln(m);
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.31.4    Ответы    Java-аналог    Visual Basic-аналог

Определить, какое число будет выдано на экран дисплея после выполнения следующей программы.

Program AA;
var
    s, j : integer;
function Pr1 (n, k : integer) : boolean;
begin
    Pr1:=not (n*k>k div 2);
end;
begin
    s:=0;
    if Pr1(3,4) then s:=15
    else
        for j:=1 to 3 do s:=s+j;
    writeln(s);
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.31.5    Ответы    Java-аналог    Visual Basic-аналог

Определить, какое число будет выдано на экран дисплея после выполнения следующей программы.

Program AA;
var
    s, i : integer;
function Pr1 (n : integer) : integer;
begin
    Pr1:=n div 2;
end;
function Pr2 (n : integer) : integer;
begin
    Pr2:=n*n;
end;
function Pr3 (n : integer) : integer;
begin
    Pr3:=n mod 2;
end;
begin
    s:=0;
    for i:=Pr1(3) to Pr2(3) do s:=s+Pr3(i);
    writeln(s);
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.31.6    Ответы    Java-аналог    Visual Basic-аналог

Определить, какое число будет выдано на экран дисплея после выполнения следующей программы.

Program AA;
var
    s, i, j : integer;
function Pr1 (n : integer) : integer;
begin
    Pr1:=n div 2;
end;
function Pr2 (n : integer) : integer;
begin
    Pr2:=n*n;
end;
function Pr3 (n : integer) : integer;
begin
    Pr3:=n mod 2;
end;
begin
    s:=0;
    for i:=1 to 2 do
    for j:=Pr1(i) to Pr2(i) do s:=s+Pr3(j);
    writeln(s);
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.31.7    Ответы    Visual Basic-аналог

Определить, какое число будет выдано на экран дисплея после выполнения следующей программы.

Program AA;
var
    s, k : integer;
function Pr (n : integer) : boolean;
var
    j, m : integer;
begin
    m:=0;
    for j:=1 to n do m:=m+j;
    Pr:=(m mod n=0);
end;
begin
    s:=0;        k:=3;
    repeat
        s:=s+k;     k:=k+1;
    until Pr(k);
    writeln(s);
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.31.8    Ответы    Java-аналог    Visual Basic-аналог

Определить, что будет в переменной XX в конце выполнения следующей программы.

Program AA;
var
    XX, k, m : integer;

function A1(N : integer) : integer;
begin
    A1:=N*N;
end;

function A2(N : integer) : integer;
begin
    A2:=A1(N)+2;
end;

function A3(N : integer) : integer;
begin
    A3:=A1(N)*3;
end;

begin
    XX:=0;
    for k:=1 to 2 do
        for m:=A2(k) to A3(k) do XX:=XX+1
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.31.9    Ответы    Java-аналог    Visual Basic-аналог

Определить, какое число будет выдано на экран дисплея после выполнения следующей программы.

Program AA;
var
    s, i : integer;

function Pr1 (n : integer) : integer;
begin
    Pr1:=n*(n-1);
end;

function Pr2 (k, n : integer) : integer;
begin
    Pr2:=k*k-n*n;
end;

begin
    s:=0;
    for i:=1 to 2 do s:=s+Pr1(Pr2(i+1,i-1));
    writeln(s);
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.31.10    Ответы    Java-аналог    Visual Basic-аналог

Определить, какое число будет выдано на экран дисплея после выполнения следующей программы.

Program AA;
var
    s, i : integer;
function Pr1 (n : integer) : integer;
begin
    Pr1:=n*3+1;
end;

begin
    s:=1;
    for i:=1 to 4 do s:=Pr1(s);
    writeln(s);
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.31.11    Ответы    Java-аналог    Visual Basic-аналог

Определить, какое число будет выдано на экран дисплея после выполнения следующей программы.

Program AA;
var
    s : integer;

function Pr1 (n, k : integer) : boolean;
begin
    Pr1:=( (n+k+2) > ((k*5) div 3) );
end;

begin
    s:=0;
    if Pr1(3,4) then s:=s+2;
    if Pr1(3,2) then s:=s+3;
    if Pr1(4,6) then s:=s+7;
    if Pr1(5,1) then s:=s+11;
    if Pr1(0,2) then s:=s+20;
    writeln(s);
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.31.12    Ответы    Java-аналог    Visual Basic-аналог

Определить, какое число будет выдано на экран дисплея после выполнения следующей программы.

Program AA;
var
    s, i : integer;

function Pr1 (n : integer) : integer;
begin
    Pr1:=n div 2;
end;

function Pr2 (n : integer) : integer;
begin
    Pr2:=n*n;
end;

function Pr3 (n : integer) : integer;
begin
    Pr3:=n mod 2;
end;

begin
    s:=0;
    for i:=Pr1(3) to 3 do s:=s+Pr1(Pr2(Pr3(i)));
    writeln(s);
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.31.13    Ответы    Java-аналог    Visual Basic-аналог

Определить, какое число будет выдано на экран дисплея после выполнения следующей программы.

Program AA;
var
    s, i, j : integer;

function Pr1 (n : integer) : integer;
begin
    Pr1:=n+2;
end;

function Pr2 (n : integer) : integer;
begin
    Pr2:=n*n+5;
end;

function Pr3 (n : integer) : integer;
begin
    Pr3:=n*2;
end;

begin
    s:=0;
    for i:=1 to 2 do
        for j:=Pr1(i) to Pr2(i) do s:=s+Pr3(j);
    writeln(s);
end.

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.31.14    Ответы

Какое число будет в переменной Man в конце выполнения следующей программы.

Program AA;
type
    Animal = (cat, dog, rabbit, fox, wolf, bear, hare);
var
    a, b : Animal;
    Man : integer;

function Beat(x,y : Animal) : boolean;
begin
    Beat:=((x=dog) and (y=cat)) or
        ((x=wolf) and (y=fox)) or
        ((x=bear) and (y=wolf));
end;

begin
    Man:=0;
    for a:=cat to fox do
        for b:=cat to rabbit do
            if Beat(a,b) then Man:=Man+1;
end.

©   Александр Приходько    1996 - 2006