Паскаль. P.21. Гнездо задач. Последовательности. Сборник задач по программированию Александра Приходько

Сборник задач по программированию. Старая версия

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

интерфейс, pascal, файл, паскаль, образование, xslt, xslt, процедура, преобразование, клиент

Паскаль. P.21. Гнездо задач. Последовательности

Калькулятор

/ - деление

\ - остаток

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

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

P.21.1    Ответы

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

Program AA;
var
    x, y, z : integer;
begin
    z:=0;    x:=0;    y:=1;
    repeat
        z:=z+1;    x:=x+3;    y:=y*2+1;
        if z mod 2 = 0 then writeln(x)
        else writeln(y);
    until z=7;
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.21.2    Ответы

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

Program AA;
var
    x, y, z : integer;
begin
    z:=0;        x:=0;        y:=1;
    repeat
        z:=z+1;    x:=x*2+1;    x:=x mod 100;
        y:=y*3+2;    y:=y mod 100;
        if z mod 3 = 0 then writeln(x)
        else writeln(y);
    until z=6;
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.21.3    Ответы

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

Program AA;
var
    x, y, z : integer;
begin
    z:=0;        x:=0;        y:=1;
    while y<>9 do begin
        z:=z+1;    x:=x*3+2;    y:=y*2-1;
        if z mod 4 = 0 then writeln(x)
        else writeln(y);
    end;
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.21.4    Ответы

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

Program AA;
var
    x, y, z : integer;
begin
    x:=0;        y:=1;
    for z:=1 to 7 do begin
        x:=(x+2)*3;        y:=y*3-2;
        if z mod 2 = 0 then writeln(x)
        else writeln(y);
    end;
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.21.5    Ответы

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

Program AA;
var
    x, y, z : integer;
begin
    x:=0;        y:=1;
    for z:=1 to 8 do begin
        x:=(x+1)*2;        y:=(y+4)*2;
        if z div 3 < 2 then writeln(x)
        else writeln(y);
    end;
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.21.6    Ответы

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

Program AA;
var
    z : integer;
    x, y : boolean;
begin
    x:=false;    y:=true;
    for z:=1 to 8 do begin
        x:=not (x or (z mod 2 = 0));
        y:=not (x or y);
        if z mod 3 = 0 then writeln(x)
        else writeln(y);
    end;
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.21.7    Ответы

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

Program AA;
var
    x, y, z : integer;
begin
    for x:=1 to 5 do begin
        y:=x*2-1;    z:=y mod 3;
        writeln(z);
    end;
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.21.8    Ответы

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

Program AA;
var
    x : integer;
begin
    for x:=5 to 10 do begin
        if x mod 2 = 0 then writeln(x);
        if x mod 3 = 0 then writeln(x);
        if x mod 4 = 0 then writeln(x);
    end;
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.21.9    Ответы

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

Program AA;
var
    x, y : integer;
begin
    for x:=1 to 5 do
        for y:=x div 2 to x do writeln(y);
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.21.10    Ответы

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

Program AA;
var
    x, y : integer;
begin
    y:=1;        x:=0;
    repeat
        y:=y*2-1;
        if y mod 3 = 0 then begin
            x:=x+1;
            writeln(y);
        end;
    until x=5;
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.21.11    Ответы

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

Program AA;
var
    x, y : integer;
begin
    y:=0;        x:=0;
    while x<5 do begin
        y:=y+2;
        if y mod 3 = 0 then begin
            x:=x+1;
            writeln(y);
        end;
    end;
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.21.12    Ответы

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

Program AA;
var
    x, y : integer;
begin
    y:=100;    x:=1;
    while x<5 do begin
        x:=x+1;    y:=y div 2;
        writeln(y);
    end;
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.21.13    Ответы

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

Program AA;
var
    x, y : integer;
begin
    y:=1;        x:=1;
    while x<4 do begin
        x:=x+1;    y:=y*3;
        writeln(y);
    end;
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.21.14    Ответы

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

Program AA;
var
    x, y, z : integer;
begin
    x:=10;    y:=35;    z:=1;
    while x         z:=z+1;
        if z mod 2 = 0 then writeln(x)
        else writeln(y);
        x:=x+2;    y:=y-3;
    end;
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.21.15    Ответы

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

Program AA;
var
    x, y, z : integer;
    M : array[1..8] of integer;
begin
    for x:=1 to 8 do M[x]:=x;
    for x:=1 to 4 do begin
        y:=x*2;    z:=y-1;
        writeln(M[y]);
        writeln(M[z]);
    end;
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.21.16    Ответы

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

Program AA;
var
    x, y, z : integer;
    M : array[1..10] of boolean;
begin
    for x:=1 to 10 do M[x]:=(x div 3 = 0);
    for y:=1 to 10 do begin
        z:=11-y;
        writeln(M[z]);
    end;
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.21.17    Ответы

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

Program AA;
var
    x, y : integer;
begin
    y:=0;        x:=0;
    while x<5 do begin
        y:=y+2;
        if y mod 3 = 0 then begin
            x:=x+1;
            writeln(y);
        end;
    end;
end.

Калькулятор

/ - деление

\ - остаток

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

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

P.21.18    Ответы

Определить, какие из программ выдают на экран дисплея последовательность значений True, False, True,
True, False. Перечислить имена этих программ.

Program uu1;
var
    i : integer;
    bb : boolean;
begin
    for i:=1 to 5 do begin
        bb:=(i mod 2=1) or (i mod 4=0);
        writeln(bb);
    end
end.