B2 Самостоятельная работа (приложение 1):

B2 Самостоятельная работа (приложение 1):
1) (40)Определите значение переменной s после выполнения следующего фрагмента программы:
n := 1;
s := 0;
while n <= 101 do begin
s := s + 7;
n := n + 1
end;
2) (41) Определите значение переменной s после выполнения следующего фрагмента программы:
n := 4;
s := 0;
while n <= 8 do begin
s := s + 15;
n := n + 1
end;
3) (42)Определите значение переменной n после выполнения следующего фрагмента программы:
n := 0;
s := 512;
while s >= 0 do begin
s := s - 20;
n := n + 1
end;
4) (43) Определите значение переменной s после выполнения следующего фрагмента программы:
n := 14;
s := 0;
while n <= 18 do begin
s := s + 25;
n := n + 1
end;
B5 Самостоятельная работа (приложение 2):
1)
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=1;
while k < 11 do begin
s:=s+k;
k:=k+1;
end;
write(s);
end.
2) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=0;
while k < 30 do begin
k:=k+3;
s:=s+k;
end;
write(s);
end.
3) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=3;
k:=1;
while k < 25 do begin
s:=s+k;
k:=k+2;
end;
write(s);
end.
4) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=2;
k:=2;
while s < 50 do begin
s:=s+k;
k:=k+2;
end;
write(k);
end.
5) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=0;
while s < 100 do begin
s:=s+k;
k:=k+4;
end;
write(k);
end.
6) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=1;
while s < 66 do begin
k:=k+3;
s:=s+k;
end;
write(k);
end.
7) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=5;
k:=0;
while k < 15 do begin
k:=k+2;
s:=s+k;
end;
write(s);
end.
8) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=0;
while k < 12 do begin
s:=s+2*k;
k:=k+3;
end;
write(s);
end.
9) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=0;
while s < 80 do begin
s:=s+2*k;
k:=k+4;
end;
write(s);
end.
10) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=1;
k:=0;
while k < 13 do begin
s:=s+2*k;
k:=k+4;
end;
write(s+k);
end.
11) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n := 3;
s := 0;
while n <= 7 do begin
s := s + n;
n := n + 1
end;
write(s)
end.
12) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n := 4;
s := 0;
while n <= 8 do begin
s := s + n;
n := n + 1
end;
write(s)
end.
13) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n := 4;
s := 0;
while n <= 13 do begin
s := s + 15;
n := n + 1
end;
write(s)
end.
14) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n := 1;
s := 0;
while n <= 20 do begin
s := s + 33;
n := n + 1
end;
write(s)
end.
15) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n := 1;
s := 0;
while n <= 101 do begin
s := s + 7;
n := n + 1
end;
write(s)
end.
16) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n := 0;
s := 512;
while s >= 0 do begin
s := s - 20;
n := n + 1
end;
write(n)
end.
B8 Самостоятельная работа (приложение 3):
1) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, L и M . Укажите
наибольшее из таких чисел x , при вводе которых алгоритм печатает сначала 3, а потом 7.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do begin
L:= L + 1;
M:= M + x mod 10;
x:= x div 10;
end;
writeln(L); write(M);
end.
2) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, L и M . Укажите
наибольшее из таких чисел x , при вводе которых алгоритм печатает сначала 3, а потом 8.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do begin
L:= L + 1;
if x mod 2 = 0 then
M:= M + x mod 10;
x:= x div 10;
end;
writeln(L); write(M);
end.
3) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, L и M . Укажите
наибольшее из таких чисел x , при вводе которых алгоритм печатает сначала 3, а потом 0.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do begin
L:= L + 1;
if x mod 2 = 0 then
M:= M + x mod 10;
x:= x div 10;
end;
writeln(L); write(M);
end.
4) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, L и M . Укажите
наибольшее из таких чисел x , при вводе которых алгоритм печатает сначала 3, а потом 8.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do begin
L:= L + 1;
if x mod 2 = 1 then
M:= M + x mod 10;
x:= x div 10;
end;
writeln(L); write(M);
end.
5) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, L и M . Укажите
наибольшее из таких чисел x , при вводе которых алгоритм печатает сначала 3, а потом 7.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do begin
L:= L + 1;
if x mod 2 = 0 then
M:= M + (x mod 10) div 2;
x:= x div 10;
end;
writeln(L); write(M);
end.
6) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, L и M . Укажите
наибольшее из таких чисел x , при вводе которых алгоритм печатает сначала 3, а потом 7.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do begin
L:= L + 1;
if x mod 2 = 1 then
M:= M + (x mod 10) div 2;
x:= x div 10;
end;
writeln(L); write(M);
end.
7) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, L и M . Укажите
наибольшее из таких чисел x , при вводе которых алгоритм печатает сначала 3, а потом 7.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do begin
L:=L+1;
if M < x then begin
M:=x mod 10;
end;
x:= x div 10;
end;
writeln(L); write(M);
end.
8) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, L и M . Укажите
наибольшее из таких чисел x , при вводе которых алгоритм печатает сначала 3, а потом 8.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do begin
L:=L+1;
if (M < x) and (x mod 2 = 0) then begin
M:=x mod 10;
end;
x:= x div 10;
end;
writeln(L); write(M);
end.
9) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, L и M . Укажите
наибольшее из таких чисел x , при вводе которых алгоритм печатает сначала 3, а потом 10.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do begin
L:=L+1;
if (M < x) and (x mod 2 = 1) then begin
M:= (x mod 10) * 2;
end;
x:= x div 10;
end;
writeln(L); write(M);
end.
10) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, L и M . Укажите
наибольшее из таких чисел x , при вводе которых алгоритм печатает сначала 3, а потом 10.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do begin
L:=L+1;
if M < x then begin
M:= (x mod 10) * 2;
end;
x:= x div 10;
end;
writeln(L); write(M);
end.
11) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, a и b . Укажите
наибольшее из таких чисел x , при вводе которых алгоритм печатает сначала 2, а потом 72.
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.
12) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, a и b . Укажите
наибольшее из таких чисел x , при вводе которых алгоритм печатает сначала 2, а потом 14.
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.
13) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, a и b . Укажите
наибольшее из таких чисел x , при вводе которых алгоритм печатает сначала 3, а потом 7.
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.
14) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, a и b . Укажите
наибольшее из таких чисел x , при вводе которых алгоритм печатает сначала 3, а потом 0.
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.
15) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, L и M . Укажите
наименьшее из таких чисел x , при вводе которых алгоритм печатает сначала 3, а потом 7.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do begin
L:= L + 1;
M:= M + x mod 10;
x:= x div 10;
end;
writeln(L); write(M);
end.
16) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, L и M . Укажите
наименьшее из таких чисел x , при вводе которых алгоритм печатает сначала 3, а потом 8.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do begin
L:= L + 1;
if x mod 2 = 0 then
M:= M + x mod 10;
x:= x div 10;
end;
writeln(L); write(M);
end.