Определить значение переменной y после выполнения следующих фрагментов программы: 1. var y: real; k: integer; y: =1.5; for k: = to do y: =y-k; 2. var y: real; k: integer; y: =2; for k: =4 downto 1 do y: =y*k; 3. var y: real; k: integer; y: =0; for k: =1 to 3 do begin y: =y+1; y: =y+k end; 4. var y: real; k: integer; y: =0; for k: =4 to 6 do y: =y+k; y: =y/10; 5. var y: real; k: integer; y: =1; k: =5; while k> 2 do k: =k-1; y: =y+k*k; 6. var y: real; k: integer; y: =1; k: =2; repeat k: =2*k; y: =y+k until k> 5; 7. var y: real; k: integer; y: =1; k: =1; while k< 5 do k: =k+1; y: =y+1*k

АксеновДА    1   26.07.2019 23:00    13