Writeln(K); writeln(R)

Задачи из ЕГЭ-№20

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

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

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

var x, a, b: integer;

Begin

readln(x);

a:=0; b:=0;

while x>0 do begin

a:= a + 2;

b:= b + (x mod 10);

x:= x div 10;

end;

writeln(a); write(b);

End.

Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и .

7) Получив на вход число х, этот алгоритм печатает два числа К и R. Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 3, а потом 7.

var x, i, K, R, y: integer;

Begin

readln(x);

K:= 0; R:= 9;

y:= x mod 10;

while x > 0 do begin

K:= K + 1;

if R > x mod 10 then

R:= x mod 10;

x:= x div 10

end;

R:= y - R;

writeln(K); writeln(R)

End.

8) Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 10.

var x, a, b: integer;

Begin

readln(x);

a:= 0; b:= 1;

while x > 0 do begin

a:= a + 1;

b:= b * (x mod 8);

x:= x div 8;

end;

writeln(a); write(b);

End.

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

var x, a, b: integer;

Begin

readln(x);

a:= 0; b:= 1;

while x > 0 do begin

a:= a + 1;

b:= b * (x mod 6);

x:= x div 6;

end;

writeln(a); write(b);

End.

10) Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 9.

var x, a, b: integer;

Begin

readln(x);

a:= 0; b:= 1;

while x > 0 do begin

a:= a + 1;

b:= b * (x mod 5);

x:= x div 5;

end;

writeln(a); write(b);

End.