- •B8 (время – 5 мин)
- •Пример задания:
- •Var X, a, b, c: integer;
- •Ещё пример задания:
- •Var X, y, z: integer;
- •Ответ: 72 Ещё пример задания:
- •Var X, l, m: integer;
- •Ответ: 777.
- •Var X, l, m: integer;
- •Ответ: 428.
- •Задачи для тренировки:
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, l, m: integer;
- •Var X, a, b: integer;
- •Var X, a, b: integer;
- •Var X, y, z: integer;
- •Var X, y, z: integer;
- •Var X, a, b, c: integer;
- •Var X, a, b, c: integer;
- •Var X, a, b, c: integer;
- •Var X, I, k, r, y: integer;
- •Var X, I, k, r, y: integer;
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 100
M:= M + x mod 10;
x:= x div 10;
end;
writeln(L); write(M);
end.
Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 8.
Var X, l, m: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do begin 107
L:= L + 1;
if x mod 2 = 1 then
M:= M + x mod 10;
x:= x div 10;
end;
writeln(L); write(M);
end.
Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 7.
Var X, l, m: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do begin
L:= L + 1; 608
if x mod 2 = 0 then
M:= M + (x mod 10) div 2;
x:= x div 10;
end;
writeln(L); write(M);
end.
Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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; 179
x:= x div 10;
end;
writeln(L); write(M);
end.
Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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 170
M:=x mod 10;
end;
x:= x div 10;
end;
writeln(L); write(M);
end.
Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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 118
M:=x mod 10;
end;
x:= x div 10;
end;
writeln(L); write(M);
end.
Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 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 105
M:= (x mod 10) * 2;
end;
x:= x div 10;
end;
writeln(L); write(M);
end.
Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 28.