Тип заданий 20 - ЕГЭ по информатике 2016

Задание:

Ниже на языке Pascal записан алгоритм. При каком наибольшем n программа выведет на экран сначала 3, а потом 2?

Pascal:
var n, a, b, c: integer;
begin
  readln(n);
  a := 0; b := 0;
  while n > 0 do begin
    a := a+1;
    c := n mod 10;
    b := b+c;
    n := n div 10;
  end;
  writeln(a); write(b);
end.
Подробнее...
Задание:

Ниже на языке Pascal записан алгоритм. При каком наибольшем n программа выведет на экран сначала 2, а потом 7?

Pascal:
var n, a, b, c: integer;
begin
  readln(n);
  a := 0; b := 0;
  while n > 0 do begin
    a:=a+1;
    if n mod 10 > b then
      b := n mod 10;
    n := n div 10;
  end;
  writeln(a); write(b);
end.
Подробнее...
Задание:

Ниже на языке Pascal записан алгоритм. При каком наименьшем трёхзначном n программа выведет на экран сначала 5, а потом 1?

Pascal:
var n, a, b, c: integer;
begin
  readln(n);
  a := 0; b := 10;
  while n > 0 do begin
    if n mod 10 > a then
      a := n mod 10;
    if n mod 10 < b then
      b := n mod 10;
    n := n div 10;
  end;
  writeln(a); write(b);
end.
Подробнее...
Задание:

Ниже на языке Pascal записан алгоритм. При каком наименьшем n программа выведет на экран сначала 3, а потом 7?

Pascal:
var n, a, b, c: integer;
begin
  readln(n);
  a := 0; b := 0;
  while n > 0 do begin
    a := a+1;
    c := n mod 10;
    b := b+c;
    n := n div 10;
  end;
  writeln(a); write(b);
end.
Подробнее...
Задание:

Ниже на языке Pascal записан алгоритм. При каком наибольшем n программа выведет на экран сначала 2, а потом 12?

Pascal:
var n, a, b, c: integer;
begin
  readln(n);
  a := 0; b := 1;
  while n > 0 do begin
    a := a+1;
    b := b * (n mod 10);
    n := n div 10;
  end;
  writeln(a); write(b);
end.
Подробнее...
Задание:

Ниже на языке Pascal записан алгоритм. При каком наибольшем n программа выведет на экран сначала 2, а потом 5?

Pascal:
var n, a, b, c: integer;
begin
  readln(n);
  a := 0; b := 10;
  while n > 0 do begin
    a:=a+1;
    if n mod 10 < b then
      b := n mod 10;
    n := n div 10;
  end;
  writeln(a); write(b);
end.
Подробнее...
Перевести число из в Результат: 510 = 1012