Определить значение пременной а после выполнения следуюших фрагментов программы: var a: real; i: integer; a: =1; i: =1; while i< 5 do i: ==i+1; a: =a+1*i;

Var a: real; i: integer; begin a: =1; i: =1; while i< 5 do begin i: =i+1;   a: =a+1*i; end; writeln(a); end.такая программа, наверное) значит а=15

Компьютер быстро вошел в нашу жизнь. еще несколько лет назад было редкостью увидеть какой-нибудь персональный компьютер – они были, но были дорогие, и даже не каждая фирма могла иметь у себя в офисе компьютер. а теперь? теперь в каждом третьем доме есть компьютер, который уже глубоко вошел в жизнь человека. современные вычислительные машины представляют одно из самых значительных достижений человеческой мысли, влияние которого на развитие научно-технического прогресса трудно переоценить. для многих людей сейчас компьютер уже не роскошь, а необходимый предмет или рабочей обстановки.

Clsdim a(7, 7)for i = 1 to 7  for j = 1 to 7    a(i, j) = int(rnd * 100)  next jnext iminj = 1: minj2 = 1for i = 1 to 7  if a(1, minj) > a(1, i) then    minj = i  end if  if a(3, minj2) > a(3, i) then    minj2 = i  end ifnext iswap a(1, minj), a(3, minj2)maxi1 = 1: maxj1 = 1: maxi2 = 1: maxj2 = 7j = 1: k = 7for i = 1 to 7  if a(maxi1, maxj1) > a(i, j) then    maxi1 = i: maxj1 = j  end if  if a(maxi2, maxj2) > a(i, k) then    maxi2 = i: maxj2 = k  end if  k = k - 1  j = j + 1next ifor i = 1 to 7  for j = 1 to 7    print a(i, j);