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

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

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

объект, процедура, клиент, file, jsp, учебный материал, образование, обзоры, язык программирования

Паскаль. P.12. Гнездо задач. Оператор Repeat

Калькулятор

/ - деление

\ - остаток

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

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

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

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

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

Калькулятор

/ - деление

\ - остаток

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

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

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

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

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

Калькулятор

/ - деление

\ - остаток

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

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

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

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

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

Калькулятор

/ - деление

\ - остаток

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

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

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

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

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

Калькулятор

/ - деление

\ - остаток

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

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

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

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

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.

Калькулятор

/ - деление

\ - остаток

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

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

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

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

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.

Калькулятор

/ - деление

\ - остаток

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

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

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

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

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

Калькулятор

/ - деление

\ - остаток

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

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

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

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

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

Калькулятор

/ - деление

\ - остаток

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

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

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

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

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

Калькулятор

/ - деление

\ - остаток

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

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

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

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

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.

Калькулятор

/ - деление

\ - остаток

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

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

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

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

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.

Калькулятор

/ - деление

\ - остаток

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

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

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

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

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