Тест по заданию 20. ЕГЭ по информатике и ИКТ - Онлайн-тесты.

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

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.


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

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.


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

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.


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

var n, a, b, c: integer;
begin
  readln(n);
  a := 0; b := 0;
  while n > 0 do begin
    a := a+1;
    b := b + (n mod 2);
    n := n div 2;
  end;
  writeln(a); write(b);
end.


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

var n, a, b, c: integer;
begin
  readln(n);
  a := 0; b := 0;
  while n > 0 do begin
    a := a+1;
    b := b + (n mod 8);
    n := n div 8;
  end;
  writeln(a); write(b);
end.


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

var n, a, b, c: integer;
begin
  readln(n);
  a := 0; b := 0;
  while n > 0 do begin
    a := a+1;
    b := b + (n mod 5);
    n := n div 5;
  end;
  writeln(a); write(b);
end.


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

var n, a, b, c: integer;
begin
  readln(n);
  a := 0; b := 0;
  while n > 0 do begin
    a := a+1;
    b := b + (n mod 100);
    n := n div 100;
  end;
  writeln(a); write(b);
end.


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

var n, a, b, c: integer;
begin
  readln(n);
  a := 0; b := 0;
  while n > 0 do begin
    if n mod 2 = 0 then
      a := a + 2
    else
      b := b + 2;
    n := n div 2;
  end;
  writeln(a); write(b);
end.


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

var n, a, b, c: integer;
begin
  readln(n);
  a := 0; b := 0;
  while n > 0 do begin
    if n mod 2 <> 0 then
      a := a + 1
    else
      b := b + 2;
    n := n div 2;
  end;
  writeln(a); write(b);
end.


Ответ:
10. Ниже на языке Pascal записан алгоритм. При каком наименьшем двузначном L программа выведет на экран число 4?

var x, L, M: integer;
begin
  readln(x);
  L := x;
  M := 36;
  while L <> M do
    if L > M then
      L := L - M
    else
      M := M - L;
  writeln(M);
end.


Ответ:

Поделиться:
 

 

Перевести число из в Результат: 510 = 1012