Циклы в Pascal. Проверочная работа.

Вариант 1

№1 Запишите число, которое будет напечатано в результате выполнения следующей программы.

var s, n: integer;

begin

    s := 600;

    n := 10;

    while s + 2*n >= 320 do

    begin

        s := s − 50;

        n := n + 10;

    end;

    writeln(s)

end.

№2 Найди ошибку в программе

var

  i: integer;

  p: real;

begin

    for i := 1 to 10 do

    p := p * 2;

  write(p); 

end.

№3 Напиши программу нахождения произведения

P=1*1.5*2.25*…*1.5⁶

Вариант 2

№1 Запишите число, которое будет напечатано в результате выполнения следующей программы.

var s, n: integer;

begin

    s := 500;

    n := 200;

    while s div n >= 2 do begin

        s := s + 5;

        n := n + 5

    end;

    writeln(s)

end.

№2 Найди ошибку в программе

var x: integer;

begin

  x := 1;

  while x>0 do

  begin

    writeln(x);

    x := x + 1;

  end;

end.

№3 Напиши программу нахождения произведения

P=1*5*9*…*(4*n-3)

Вариант 3

№1 Запишите число, которое будет напечатано в результате выполнения следующей программы.

var s, n: integer;

begin

    s := 900;

    n := 30;

    while s > 2*n do

    begin

        s := s – 30;

        n := n + 20

    end;

    writeln(s)

end.

№2 Найди ошибку в программе

var i: integer;

begin

  for i := 1 to 10 do

  begin

    write(i);

    i := i + 2;

  end; 

end.

№3 Напиши программу нахождения суммы

S=1³+2³+3³+…+9³

Вариант 4

№1 Запишите число, которое будет напечатано в результате выполнения следующей программы.

var s, n: integer;

begin

    s := 32;

    n := 1;

    while s * n < 1000 do

    begin

        s := s div 2;

        n := n * 4;

    end;

    writeln(n)

end.

№2 Найди ошибку в программе

var x: real;

begin

  for x := 1 to 10 do

    write(x);

end.

№3 Напиши программу нахождения суммы

S=4¹+4²+4³+…4⁷

Краткое описание документа:

Вариант 1 №1 Запишите число, которое будет напечатано в результате выполнения следующей программы. var s, n: integer; begin s := 600; n := 10; while s + 2*n = 320 do begin s := s − 50; n := n + 10; end; writeln(s) end. №2 Найди ошибку в программе var i: integer; p: real; begin for i := 1 to 10 do p := p * 2; write(p); end. №3 Напиши программу нахождения произведения P=1*1.5*2.25*…*1.56 Вариант 2 №1 Запишите число, которое будет напечатано в результате выполнения следующей программы. var s, n: integer; begin s := 500; n := 200; while s div n = 2 do begin s := s + 5; n := n + 5 end; writeln(s) end. №2 Найди ошибку в программе var x: integer; begin x := 1; while x 0 do begin writeln(x); x := x + 1; end; end. №3 Напиши программу нахождения произведения P=1*5*9*…*(4*n-3) Вариант 3 №1 Запишите число, которое будет напечатано в результате выполнения следующей программы. var s, n: integer; begin s := 900; n := 30; while s 2*n do begin s := s – 30; n := n + 20 end; writeln(s) end. №2 Найди ошибку в программе var i: integer; begin for i := 1 to 10 do begin write(i); i := i + 2; end; end. №3 Напиши программу нахождения суммы S=13+23+33+…+93 Вариант 4 №1 Запишите число, которое будет напечатано в результате выполнения следующей программы. var s, n: integer; begin s := 32; n := 1; while s * n 1000 do begin s := s div 2; n := n * 4; end; writeln(n) end. №2 Найди ошибку в программе var x: real; begin for x := 1 to 10 do write(x); end. №3 Напиши программу нахождения суммы S=41+42+43+…47