Проверочная работа "Условные циклы"

Проверочная работа по теме «Циклы с условием».

1.       Запишите значение переменной s, полученное в результате работы следующей программы.

s := 0; к:=3;

while k<8 do

begin

s := s + 9;

k:=k+1;

end;

writeln(s);

a:=23; p:=a; s:=0;

while p>0 do

begin

a:= s+p mod 10;

p:=p div 10

end;

2.     Запишите значение переменных a, b, полученные в результате работы следую­щей программы

var x, a, b : integer;

begin

    readln(x);

    a := 0; b := 1;

    while x > 0 do begin

        a := a + 1;

        b := b * (x mod 10);

        x := x div 10;

    end;

    writeln(a); write(b);

end.

3.       Определите, что вычисляет следующая программа:

Program a4;

Var x, k1, k2: integer;

Begin

K1:= 0; k2:= 0;

Repeat

Writeln (‘Введите целое число’);

Readln (x);

If x<0 then k1:= k1+1;

If x>0 then k2:= k2+1;

Unti x=0;

Writeln (‘k1=’, k1, ‘  ‘, ‘k2=’, k2);

End.

4.       Напишите программу вычисляющую возведение целого числа в любую целую степень. (используйте любой цикл).

5.       Написать программу вычисляющую сумму ряда 1+1.5+2+2.5+3+3.5+ .. + 30. (используйте любой цикл).