Паскаль: 24x - Программы с циклами (ОГЭ)

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

  var s, k:integer;
  begin
    s:= 0;
    for k:= 4 to 11 do
      s:= s + k;
    writeln (s);
  end.

2. Определите, что будет напечатано в результате работы следующей программы.

  Var k,i: integer;
  Begin
    k:= 4;
    For i:= 1 to 3 do
      k:= 2*k + i;
    Writeln(k);
  End.

3. Определите, что будет напечатано в результате работы следующей программы.

  Var s,k: integer;
  Begin
    s:= 0;
    for k:=1 to 11 do
      s:= s + 12;
    write(s);
  End.

4. Определите, что будет напечатано в результате работы следующей программы.

  Var s,k: integer;
  Begin
    s:= 0;
    for k:= 4 to 9 do
      s:= s + 12;
    writeln(s);
  End.

5. Определите, что будет напечатано в результате работы следующей программы.

  var s, k:integer;
  begin
    s:= 0;
    for k:= 2 to 12 do
      s:= s + 11;
    writeln (s);
  end.

6. Определите, что будет напечатано в результате работы следующей программы.

  Var u,i: integer;
  Begin
    u:= 30;
    For i:= 1 to 6 do
      u:= u – i;
    Writeln(u);
  End.

7. Определите, что будет напечатано в результате работы следующей программы.

  var s, k:integer; 
  begin 
    s:= 0;
    for k:= 4 to 11 do 
      s:= s + k; 
    writeln (s); 
  end.

8. Определите, что будет напечатано в результате работы следующей программы.

  var s, n: integer;
  begin
    s:= 1;
    for n:= 3 to 8 do
      s:= s * 2;
    write(s);
  end.

9. Определите, что будет напечатано в результате работы следующей программы.

  var s, n: integer;
  begin
    s:= 1;
    for n:= 5 to 8 do
      s:= s * 3;
    write(s);
  end.

10. Определите, что будет напечатано в результате работы следующей программы.

  Var s,і:integer; 
  Begin 
    s:= 3;
    For і:= 2 to 5 do
      s:= s + 2*і; 
    Writeln(s); 
  End.