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

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

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

servlet, jsp, язык программирования, xml, file, паскаль, обзоры, ответы, java, класс, по программированию

Паскаль. P.19. Гнездо задач. Оператор If с другими операторами

Калькулятор

/ - деление

\ - остаток

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

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

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

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

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.

Калькулятор

/ - деление

\ - остаток

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

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

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

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

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.

Калькулятор

/ - деление

\ - остаток

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

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

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

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

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.

Калькулятор

/ - деление

\ - остаток

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

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

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

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

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.

Калькулятор

/ - деление

\ - остаток

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

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

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

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

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.