7_Срез знаний по теме "Программирование. Циклы"_10 класс_2 часа_учеб. К. Полякова

№

Части работы

Элементы содержания контрольной работы

1

Часть А

«Алгоритмизация и программирование» базового уровня сложности

2

Часть В

«Алгоритмизация и программирование» повышенного уровня сложности

№№ заданий

Баллы за каждое задание, максимальная сумма баллов

Отметки

Пояснение к записи ответа

Уровень А

№№ 1, 2, 3

1 балл,

макс=3

1балла – «2»

2 балла – «3»

3 баллов – «4»

5 баллов – «5»

Задания 1,2,3, 4

с кратким ответом

Уровень В

№№ 4

2 балла,

класс

Писали работу

5

4

3

2

10-1(16)

10-2(13)

10-3(16)

10-4(17)

ИТОГО

Паскаль

Си++

var s, n: integer;

begin

    s := 0;

    n := 0;

    while s

    begin

        s := s + 5;

        n := n + 3

    end;

    writeln(n)

end.

#include

using namespace std;

int main()

{

    int s = 0, n = 0;

    while (s

    {

        s = s + 5;

        n = n + 3;

    }

    cout

    return 0;

}

 Си++

Паскаль

#include

using namespace std;

int main()

{

    int n, s;

    n = 1;

    s = 0;

    while (s

    {

        s = s + 128;

        n = n * 2;

    }

    cout « n « endl;

}

program B05;

var n, s: integer;

begin

    n := 1;

    s := 0;

    while s

    begin

        s := s + 128; n := n * 2;

    end;

    write(n)

end.

  Паскаль

Си++

var k, s: integer;

begin

       s:=5;

       k:=0;

      while k

            k:=k+2;

            s:=s+k;

       end;

      write(s);

end.

#include

using namespace std;

int main()

{

    int s, k;

    s = 5, k = 0;

    while (k

{

        k = k + 2; s = s + k;

    }

    cout

    return 0;

}

Си++

Паскаль

#include

using namespace std;

int main()

{

    int N, q, i;

    cin N;

    for (i = 1; i

        if (N%i == 0) q = i;

    }

    cout « q « endl;

}

var N, q, i: integer;

begin

    read(N);

    for i : = 1 to N - 1 do begin

        if N mod i = 0 then q : = i

    end;

    write(q)

end.

 Паскаль

Си++

var k, s: integer;

begin

       s:=2;

       k:=2;

      while s

            s:=s+k;

            k:=k+2;

       end;

      write(k);

end.

#include

using namespace std;

int main()

{

    int s, k;

    s = 2, k = 2;

    while (s

{

        s = s + k;    k = k + 2;

    }

    cout

    return 0;

}

  Паскаль

Си++

var n, s: integer;

begin

    n := 3;

    s := 0;

    while n

    begin

   s := s + n; n := n + 1;

    end;

    writeln(s);

end.

#include

using namespace std;

int main()

{

    int n, s;

    n = 3, s = 0;

    while (n

{

        s = s + n;     n = n + 1;

    }

    cout

    return 0;

}

Си++

Паскаль

#include

using namespace std;

int main()

{

    int n, s;

    n = 0;

    s = 1;

    while (s

    {

        s = s * 2; n = n + 2;

    }

    cout

}

var n, s: integer;

begin

    n := 0;

    s := 1;

    while s

    begin

        s := s * 2;    n := n + 2;

    end;

    write(n)

end.

Си++

Паскаль

#include

using namespace std;

int main()

{

    int x, a, b, c;

    cin x;

    a = 0; b = 10;

    while (x 0) {

        с = x%10; a = a+c;

        if (c

            b = c;

        x = x /10;

    }

    cout

}

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.

 Паскаль

Си++

var s, n: integer;

begin

    s := 80;

    n := 0;

    while s + n

    begin

        s := s − 5;

        n := n + 15;

    end;

    writeln(n)

end.

#include

using namespace std;

int main()

{

    int s = 80, n = 0;

    while (s + n

        s = s − 5;

        n = n + 15;

    }

    cout

    return 0;

}

Си++

Паскаль

#include

using namespace std;

int main()

{

    int n, s;

    n = 0;

    s = 1;

    while (s

    {

        s = s * 3; n = n + 3;

    }

    cout « n « endl;

}

var n, s: integer;

begin

    n := 0;

    s := 1;

    while s

    begin

        s := s * 3;

        n := n + 3;

    end;

    write(n)

end.

 Паскаль

Си++

var k, s: integer;

begin

       s:=0;

       k:=0;

      while s

            s:=s+k;

            k:=k+4;

       end;

      write(k);

end.

#include

using namespace std;

int main() {

    int s, k;

    s = 0, k = 0;

    while (s

        s = s + k;         k = k + 4;

    }

    cout

    return 0;

}

 Паскаль

Си++

var x, a, b: longint;

begin

    readln(x);

    a := 0; b := 0;

    while x 0 do

    begin

        if x mod 2= 0 then

            a := a + 1

        else

            b := b + x mod 10;

        x := x div 10;

    end;

    writeln(a); write(b);

end.

#include

using namespace std;

int main()

{

    int x, a, b;

    cin x;

    a = 0; b = 0;

    while (x 0) {

        if (x%2 == 0) a += 1;

        else b += x%10;

        x = x / 10;

    }

    cout

    return 0;

}

 Паскаль

Си++

var s, n: integer;

begin

  s := 0;

  n := 0;

  while 2*s*s

  begin

    s := s + 1;

    n := n + 2

  end;

  writeln(n)

end.

#include

using namespace std;

int main()

{

  int s = 0, n = 0;

  while (2*s*s

    s = s + 1;   n = n + 2;

  }

  cout

  return 0;

}

 Паскаль

Си++

var k, s: integer;

begin

       s:=0;

       k:=0;

      while k

             k:=k+3;

            s:=s+k;

       end;

      write(s);

end.

#include

using namespace std;

int main() {

    int s, k;

    s = 0, k = 0;

    while (k

        k = k + 3;         s = s + k;

    }

    cout

    return 0;

}

 Си++

Паскаль

#include

using namespace std;

int main()

{

    int n, s;

    n = 1;

    s = 6;

    while (s

    {

        s = s + 36;

        n = n * 2;

    }

    cout « n « endl;

}

var n, s: integer;

begin

    n : = 1;

    s : = 6;

    while s

    begin

        s : = s + 36; n : = n * 2

    end;

    write(n)

end.

  Паскаль

Си++

var x, L, M: integer;

begin

    readln(x);

    L := 0;

    M := 0;

    while x 0 do

    begin

        L := L + 1;

        if M

            M:= M + (x mod 10) * 2;

        x := x div 10;

    end;

    writeln(L);

    writeln(M);

end.

 #include

using namespace std;

int main()

{

    int x, L, M;

    cin x;

    L = 0;     M = 0;

    while (x 0){

        L = L + 1;

        if(M

            M = M + (x % 10) * 2;

        }

        x = x / 10;

    }

    cout

}

 Паскаль

Си++

var s, n: integer;

begin

    s := 0;

    n := 0;

    while s

    begin

        s := s + 6;

        n := n + 2

    end;

    writeln(n)

end.

#include

using namespace std;

int main()

{

    int s = 0, n = 0;

    while (s

    {

        s = s + 6;

        n = n + 2;

    }

    cout

    return 0;

}

 Си++

Паскаль

a = 20;

b = 15;

b = 3 * b - a;

if (a b)

c = 2 * a + b;

else

c = 2 * a - b;

a := 20;

b := 15;

b := 3 * b - a;

if a b then

c := 2 * a + b

else

c := 2 * a - b;

Си++

Паскаль

#include

using namespace std;

int main()

{

    int n, s;

    n = 1;

    s = 0;

    while (s

    {

        s = s + 256;

        n = n * 2;

    }

    cout « n « endl;

}

var n, s: integer;

begin

    n := 1;

    s := 0;

    while s

    begin

        s := s + 256;

        n := n * 2;

    end;

    write(n)

end.

 Паскаль

Си++

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);

    writeln(M);

end.

#include

using namespace std;

int main()

{

    int x, L, M;

    cin x;

    L = 0;

    M = 0;

    while (x 0){

        L = L + 1;

        if(x % 2 == 1){

            M = M + x % 10;

        }

        x = x / 10;

    }

    cout

}

 Си++

Паскаль

#include

using namespace std;

int main(){

    int s, k;

    s = 0;

    k = 1;

    while (k

        s = s + k;

        k = k + 1;

    }

    cout « s « endl;

}

var s, k : integer;

begin

    s:=0;

    k:=1;

    while k

    begin

        s:=s+k;

        k:=k+1;

    end;

    write(s);

end.

Си++

Паскаль

#include

using namespace std;

int main()

{

    int n, s;

    n = 1;

    s = 0;

    while (n

    {

        s = s + 7; n = n + 1;

    }

    cout

}

var n, s: integer;

begin

    n : = 1;

    s : = 0;

    while n

    begin

        s : = s + 7;

        n : = n + 1

    end;

    write(s)

end.

 Паскаль

Си++

var k, s: integer;

begin

       s:=0;

       k:=0;

      while k

            s:=s+2*k;

            k:=k+3;

       end;

      write(s);

end.

#include

using namespace std;

int main() {

    int s, k;

    s = 0, k = 0;

    while (k

        s = s + 2*k;

        k = k + 3;

    }

    cout

    return 0;

}

Си++

Паскаль

#include

using namespace std;

int main()

{

int x, a, b;

    cin x;

    a=0; b=0;

    while (x0){

        a=a+1;

        b=b+(x%10);

        x=x/10;

    }

    cout

}

var x, a, b: integer;

begin

    readln(x);

    a := 0; b := 0;

    while x0 do

        begin

            a := a + 1;

            b := b + (x mod 10);

            x := x div 10

        end;

    writeln(a); write(b);

end.

 Си++

Паскаль

#include

using namespace std;

int main(){

    int s, k;

    s = 0;     k = 0;

    while (k

       k = k + 3; s = s + k;

    }

    cout « s « endl;

}

var s, k : integer;

begin

    s:=0;     k:=0;

    while k

    begin

        k:=k+3;         s:=s+k;

    end;

    write(s);

end.

 Си++

Паскаль

#include

using namespace std;

int main()

{

    int n, s;

    n = 1;

    s = 0;

    while (s

    {

       s = s + 37;  n = n * 2;

    }

    cout « n « endl;

}

var n, s: integer;

begin

    n := 1;

    s := 0;

    while s

    begin

        s := s + 37;        n := n * 2

    end;

    write(n)

end.

 Паскаль

Си++

var n, s: integer;

begin

    n := 1;

    s := 0;

    while n

    begin

        s := s + 30;   n := n * 3

    end;

    write(s)

end.

#include

using namespace std;

int main()

{

    int n, s;

    n = 1;     s = 0;

    while (n

{

    s = s + 30;     n = n * 3;

}

    cout « s « endl;

return 0;

}

 Паскаль

Си++

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);

    writeln(M);

end.

 #include

using namespace std;

int main()

{

    int x, L, M;     cin x;

    L = 0;     M = 0;

    while (x 0){

        L = L + 1;

        if(x % 2 == 0){

            M = M + x % 10;

        }

        x = x / 10;

    }

    cout

}

 Паскаль

Си++

var k, s: integer;

begin

       s:=0;

       k:=0;

      while k

            s:=s+2*k;

            k:=k+3;

       end;

      write(s);

end.

#include

using namespace std;

int main() {

    int s, k;

    s = 0, k = 0;

    while (k

        s = s + 2*k;         k = k + 3;

    }

    cout

    return 0;

}

 Паскаль

Си++

var n, s: integer;

begin

    s := 0;

    n := 0;

    while s

    begin

        s := s + 15;

        n := n + 2;

    end;

    writeln(n);

end.

#include

using namespace std;

int main() {

    int n, s;

    n = 0, s = 0;

    while (s

        s = s + 15;         n = n + 2;

    }

    cout

    return 0;

}

  Паскаль

Си++

var k, s: integer;

begin

       s:=2;

       k:=2;

      while s

            s:=s+k;

            k:=k+2;

       end;

      write(k);

end.

#include

using namespace std;

int main() {

    int s, k;

    s = 2, k = 2;

    while (s

        s = s + k;        k = k + 2;

    }

    cout

    return 0;

}

  Паскаль

Си++

var x, y, z: integer;

var r, a, b: integer;

begin

    readln(x, y);

    if y x then begin

        z := x; x := y; y := z;

    end;

    a:= x; b:= y;

    while b0 do begin

        r := a mod b;

        a := b;

        b := r;

    end;

    writeln(a);

    writeln(x);

    write(y);

end.

#include

using namespace std;

int main()

{

    int x, y, z, r, a, b;

    cin x y;

    if (y x){

        z = x; x = y; y = z;

    }

    a = x; b = y;

    while (b0){

        r = a%b;

        a = b;

b = r;

}

cout « a « endl « x « endl « y « endl;

}

Паскаль

Си++

var n, s: integer;

begin

    n := 1;     s := 0;

    while n

    begin

        s := s + 30;

        n := n * 2

    end;

    write(s)

end.

#include

using namespace std;

int main()

{

    int n, s;

    n = 1;     s = 0;

    while (n

    {

        s = s + 30;         n = n * 2;

    }

    cout « s « endl;

}

 Паскаль

Си++

var n, s: integer;

begin

    n := 0;

    s := 260;

    while s 0 do

    begin

        s := s - 15;

        n := n + 2;

    end;

    writeln(n);

end.

#include

using namespace std;

int main() {

    int n, s;

    n = 0, s = 260;

    while (s 0) {

        s = s - 15;       n = n + 2;

    }

    cout

    return 0;

}

  Паскаль

Си++

var k, s: integer;

begin

       s:=1;

       k:=0;

      while k

            s:=s+2*k;

             k:=k+4;

       end;

      write(s+k);

end.

#include

using namespace std;

int main() {

    int s, k;

    s = 1, k = 0;

    while (k

        s = s + 2 * k;      k = k + 4;

    }

    cout

    return 0;

}

 Паскаль

С++

var x, a, b: longint;

begin

    readln(x);

    a := 0; b := 0;

    while x 0 do begin

        if x mod 2 = 0 then

            a := a + 1

        else

            b := b + x mod 6;

        x := x div 6;

    end;

    writeln(a); write(b);

end.

#include

using namespace std;

int main()

{

    int x, a, b;

    cin x;     a = 0; b = 0;

    while (x 0) {

        if (x%2 == 0)

        a += 1;

        else                

        b += x%6;

        x = x / 6;

    }

    cout

    return 0;

} 

 Си++

Паскаль

#include

using namespace std;

int main()

{

    int n, s;

    n = 0;     s = 0;

    while (s

    {

        s = s + 24;        n = n + 3;

    }

    cout « n « endl;

}

var n, s: integer;

begin

    n : = 0;

    s : = 0;

    while s

    begin

        s : = s + 24;

        n : = n + 3

    end;

    write(n)

end.

 Паскаль

Си++

var k, s: integer;

begin

       s:=0;

       k:=0;

      while k

             k:=k+3;

            s:=s+k;

       end;

      write(s);

end.

#include

using namespace std;

int main() {

    int s, k;

    s = 0, k = 0;

    while (k

        k = k + 3;         s = s + k;

    }

    cout

    return 0;

}

 Си++

Паскаль

#include

using namespace std;

int main()

{

    int n, s;

    n = 1;     s = 0;

    while (s

    {

        s = s + 256;

        n = n * 2;

    }

    cout « n « endl;

}

var n, s: integer;

begin

    n := 1;     s := 0;

    while s

    begin

        s := s + 256;

        n := n * 2;

    end;

    write(n)

end.

Паскаль

Си++

var x,d,R,S: longint;

begin

     readln(x);

     S := x;

     R := 0;

     while x 0 do

     begin

       d := x mod 2

       R := 10*R + d;

       x := x div 2

     end;

     S := R + S

     writeln(s);

end.

#include

using namespace std;

int main()

{

     long x,d,R,S;

     cin x;

     S = x;      R = 0;

     while (x 0){

         d = x % 2;

         R = 10*R + d;

         x = x / 2;

       }

     S = R + S

     cout

    return 0;

}

  Паскаль

Си++

var k, s: integer;

begin

       s:=3;

       k:=1;

      while k

            s:=s+k;

            k:=k+2;

       end;

      write(s);

end.

#include

using namespace std;

int main() {

    int s, k;

    s = 3, k = 1;

    while (k

        s = s + k;

        k = k + 2;

    }

    cout

    return 0;

}

 Си++

Паскаль

#include

using namespace std;

int main()

{

    int n, s;

    n = 1;

    s = 6;

    while (s

    {

        s = s + 36;

        n = n * 2;

    }

    cout « n « endl;

}

var n, s: integer;

begin

    n : = 1;

    s : = 6;

    while s

    begin

        s : = s + 36;

        n : = n * 2

    end;

    write(n)

end.

 Паскаль

Си++

var s, n: integer;

begin

s := 0;

n := 170;

while s + n

begin

    s := s + 25;

    n := n - 5

end;

writeln(s)

end.

#include

using namespace std;

int main() {

int s = 0, n = 170;

while (s + n

    s = s + 25;

    n = n - 5;

}

cout

return 0;

}

 Си++

Паскаль

#include

using namespace std;

int main()

{

    int x, a, b;

    cin x;

    a = 0; b = 0;

    while (x 0){

        a = a + 2;

        b = b + (x%10);

        x = x / 10;

        }

    cout

}

var x, a, b: integer;

begin

    readln(x);

    a := 0; b := 0;

    while x0 do

        begin

            a := a + 2;

            b := b + (x mod 10);

            x:= x div 10;

        end;

    writeln(a); write(b);

end.

 Си++

Паскаль

#include

using namespace std;

int main(){

    int s, k;

    s = 0;

    k = 1;

    while (k

        s = s + k;

        k = k + 1;

    }

    cout « s « endl;

}

var s, k : integer;

begin

    s:=0;

    k:=1;

    while k

    begin

        s:=s+k;

        k:=k+1;

    end;

    write(s);

end.

 Паскаль

Си++

var s, n: integer;

begin

s := 0;

n := 170;

while s + n

begin

    s := s + 25;

    n := n - 5

end;

writeln(s)

end.

#include

using namespace std;

int main() {

int s = 0, n = 170;

while (s + n

    s = s + 25;

    n = n - 5;

}

cout

return 0;

}

 Си++

Паскаль

#include

using namespace std;

int main()

{

    int n, s;

    n = 30;

    s = 1;

    while (s

    {

        s = s * 2 ;

        n = n + 10;

    }

    cout « n « endl;

}

var n, s: integer;

begin

    n := 30;

    s := 1;

    while s

    begin

        s := s * 2;

        n := n + 10

    end;

    write(n);

end.

 Си++

Паскаль

#include

using namespace std;

int main()

{

int N, q, i;

cin N;

for (i = 1; i

if (N%i == 0) q = i;

}

cout « q « endl;

}

var N, q, i: integer;

begin

read(N);

for i : = 1 to N - 1 do begin

if N mod i = 0 then q : = i

end;

write(q)

end.