Практикум по циклам (Pascal).

Практикум по циклам (Pascal)

1. Определите значение переменной после выполнения следующего фрагмента программы:

i := 0;

while i

i := i + 3;

2. Перед вами кусок программы:

readln(x);

a := 0;

while x 9 do begin

a := a + (x mod 10);

x:= x div 100;

end;

writeln(a);

Что выведет программа для x = 1234?

3. Перед вами кусок программы:

readln(x);

a := 0;

while x 9 do begin

a := a + (x mod 10);

x:= x div 100;

end;

writeln(a);

Что выведет программа для x = 555?

4. Перед вами кусок программы:

readln(x);

a := 0;

while x 9 do begin

a := a + (x mod 10);

x:= x div 100;

end;

writeln(a);

Что выведет программа для x = 1?

5. Перед вами кусок программы:

readln(x);

a := 0;

while x 9 do begin

a := a + (x mod 10);

x:= x div 100;

end;

writeln(a);

Что выведет программа для x = 123456?

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

var

summa, x: integer;

begin

summa := 0;

readln(x);

while x 0 do begin

?

??

end;

writeln(summa);

end.

Какая строка должна быть вместо одного знака вопроса?

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

var

summa, x: integer;

begin

summa := 0;

readln(x);

while x 0 do begin

?

??

end;

writeln(summa);

end.

Какая строка должна быть вместо двух знаков вопроса?

8. Ниже записана программа. Получив на вход число , эта программа печатает два числа, a и b. Укажите наименьшее из таких чисел, при вводе которых алгоритм печатает сначала 3, а потом 35.

var x, a, b: integer;

begin

readln(x);

a:=0;

b:=1;

while x0 do begin

a:=a+1;

b:=b*(x mod 10);

x:= x div 10;

end;

writeln(a);

writeln(b);

end.

9. Чему будет равно значение переменной A в результате работы такой программы:

for i:=1 to 10 do

p[i] := i;

A := 0;

for i := 1 to 10 do

A := A + p[i];

10. Массив A заполняется с помощью такого фрагмента кода:

for i := 1 to 10 do

A[i] := 2 * i * i - 3;

Чему равна сумма A[5] + A[7]?

Ответы:

1. 1002

2. 6

3. 5

4. 0

5. 12

6. b)

7. а)

8. d)

9. 55

10. 142