Определите, что будет на­пе­ча­та­но в ре­зуль­та­те работы сле­ду­ю­щих программ. Var s,k: integer; Begin s := 0; for k := 9 to 13 do s := s + 9; writeln(s); End. Var s, k: integer; Begin s := 1; for k := 0 to 9 do s := s + 5; write (s); End. Var s, n: integer; Begin s := 5; For n := 2 to 4 do s := s + (n-1); Writeln(s); End. Var s, k: integer; Begin s := 1; for k := 0 to 4 do s := s*3; write (s); End. Var f,n: integer; Begin f := 22; f := f–20; For n := 1 to 5 do f := f + n; Writeln(f); End. 45 51 11 243 17
Задание

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

  • Объекты 1
    • Var s,k: integer;
      Begin s := 0;
      for k := 9 to 13 do s := s + 9;
      writeln\(s\); End.
    • Var s, k: integer;
      Begin s := 1;
      for k := 0 to 9 do s := s + 5;
      write \(s\); End.
    • Var s, n: integer;
      Begin s := 5;
      For n := 2 to 4 do s := s + \(n\-1\);
      Writeln\(s\); End.
    • Var s, k: integer;
      Begin s := 1;
      for k := 0 to 4 do s := s*3;
      write \(s\); End.
    • Var f,n: integer;
      Begin f := 22;
      f := f–20; For n := 1 to 5 do
      f := f + n; Writeln\(f\);
      End.
  • Объекты 2
    • 45
    • 51
    • 11
    • 243
    • 17