Определите, что будет напечатано в результате работы следующих программ var s, k: integer; begin s := 0; for k := 6 to 12 do s := s+10; writeln(s); end. var k, і: integer; begin k := 4; for і := 1 to 3 do k := 2*k + і; writeln(k); end. var у, і: integer; begin y := 0; for і := 1 to 3 do у := у + 4*і; writeln(у); end. var s, k:integer; begin s:= 100; for k:= 0 to 10 do s:= s - 5; writeln(s); end. var s, k: integer; begin s := 0; for k := 14 to 18 do s := s+7; writeln(s); end. var s, k: integer; begin s := 0; for k := 6 to 10 do s := s+10; writeln(s); end. var s, k: integer; begin s:=0; for k:=1 to 11 do s:=s+12; writeln(s); end. var s, k:integer; begin s := 0 ; for k:= 4 to 11 do s := s + k ; writeln(s); end. var s, k:integer; begin s := 0; for k := 2 to 12 do s := s + 11; writeln(s); end. var s, n: integer; begin s := 1; for n := 5 to 8 do s := s * 3; write(s); end. 50 45 81 121 43 132 24 35 60 70
Задание

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

  • Объекты 1
    • var s, k: integer;
      begin
      s := 0;
      for k := 6 to 12 do
      s := s+10;
      writeln\(s\);
      end.
    • var k, і: integer;
      begin
      k := 4;
      for і := 1 to 3 do
      k := 2*k + і;
      writeln\(k\);
      end.
    • var у, і: integer;
      begin
      y := 0;
      for і := 1 to 3 do
      у := у + 4*і;
      writeln\(у\);
      end.
    • var s, k:integer;
      begin
      s:= 100;
      for k:= 0 to 10 do
      s:= s - 5;
      writeln\(s\);
      end.
    • var s, k: integer;
      begin
      s := 0;
      for k := 14 to 18 do
      s := s+7;
      writeln\(s\);
      end.
    • var s, k: integer;
      begin
      s := 0;
      for k := 6 to 10 do
      s := s+10;
      writeln\(s\);
      end.
    • var s, k: integer;
      begin
      s:=0;
      for k:=1 to 11 do
      s:=s+12;
      writeln\(s\);
      end.
    • var s, k:integer;
      begin
      s := 0 ;
      for k:= 4 to 11 do
      s := s + k ;
      writeln\(s\);
      end.
    • var s, k:integer;
      begin
      s := 0;
      for k := 2 to 12 do
      s := s + 11;
      writeln\(s\);
      end.
    • var s, n: integer;
      begin
      s := 1;
      for n := 5 to 8 do
      s := s * 3;
      write\(s\);
      end.
  • Объекты 2
    • 50
    • 45
    • 81
    • 121
    • 43
    • 132
    • 24
    • 35
    • 60
    • 70