Тест "Анализ программ с циклами и ветвлениями"

Тест. Анализ работы с циклами и ветвлениями.

1. Ниже записана программа. Получив на вход число x, эта программа печатает два числа. Укажите наибольшее из таких чисел 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 M:=x mod 10;
end;
x:= x div 10;
end;
writeln(L); write(M);
end.

2. Ниже записана программа. Получив на вход число x, эта программа печатает два числа. Укажите наибольшее из таких чисел 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, эта программа печатает два числа. Укажите наибольшее из таких чисел 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:= x div 10;
end;
writeln(L); write(M);
end.

4. Ниже записана программа. Получив на вход число x, эта программа печатает два числа. Укажите наибольшее из таких чисел 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.

5. Ниже записана программа. Получив на вход число x, эта программа печатает два числа. Укажите наименьшее из таких чисел 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.

6. Ниже записана программа. Получив на вход число x, эта программа печатает два числа. Укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 21.

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); write(b);
end.

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

var x, a, b, c: integer;
begin
readln(x);
a := 0; b := 10;
while x0 do begin
с := x mod 10;
a := a+c;
if c x := x div 10;
end;
writeln(a); write(b);
end.