1) Определите, что будет напечатано в результате работы следующего фрагмента программы. 1) s := 50; for i := 5 to 11 do s := s - 3; write (s); 2) y := 0; for i := 1 to 3 do​ y := 1 + 4*i; write (y); 3) var s, k: integer; begin s := 0; k := 1; while k< 5 do begin s := s + k; k := 1 + k end; write(s); end. 4) var s, k: integer; begin s := 1; k := 0; while k<= 15 do begin s := s + 2*k; k := 4 + k end; write(s+k); end. 5) var k, s, n: integer; begin k:=14; s:=0; n:=1; repeat s :=s+n*n; n := n+1; until s > k; writeln (n); writeln (k); end.

slava4В    1   01.06.2020 12:23    13