Проверочная работа "Циклы с условием" 9 класс
Проверочная работа по теме «Циклы с условием».
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. (используйте
любой цикл).
