Основы алгоритмизации и программирования
Вариант 2
№
1. Определите значение переменной P после
выполнения фрагмента программы:
p:=1; k:=1;
while p < 200
do begin
k:= k + 2;
p:= p * k
end;
writeln(p);
№
2. Определите значение переменной k после выполнения фрагмента программы:
s:=0; k:=1;
while s < 200
do begin
s:= s + 3 * k;
if s
< 200 then
k:= k + 1
end;
writeln(k);
№
3. Определите, что будет напечатано в результате работы следующего фрагмента
программы:
s:=1; x:=2;
k:=0;
while k < 10
do begin
s:= s * x;
k:= k + 1
end;
writeln(s);
№
4. Определите, что будет напечатано в результате следующего фрагмента
программы:
s:=0; x:= -100;
k:=0;
while k < 25
do begin
x:= x + 8; s:= s + x; k:= k + 1
end;
writeln(s);
№
5. Определите, что будет напечатано в результате работы следующего фрагмента
программы:
k:=0;
x:=45359;
while x > 0
do begin
if x mod 5 = 0 then
k:= k + 1;
x:= x div 10;
end;
writeln(k);
№
6. Определите, что будет напечатано в результате работы следующего фрагмента
программы:
k:=0;
x:=45339;
while x > 10
do begin
if (x mod 100) mod 3 = 0 then
k:= k + 1;
x:= x div 10;
end;
writeln(k);
№
7. Определите, что будет напечатано в результате работы следующего фрагмента
программы:
k:=0;
n:=143;
while n > 10
do begin
k:= n div 5 + 4;
n:= n mod 10
end;
k:= k * 10 + n;
write(k);
№
8. Определите, что будет напечатано в результате работы следующего фрагмента
программы:
n:=258;
while n > 0
do begin
write(n mod 10 + 3);
n:= n
div 10
end;
