6) определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin s : = 0; for n: =4 to 13 do begin s : = s + 15; end; write(s) end. 5) определите значение переменных a и b после выполнения следующего фрагмента программы: a : = 2468; b : = (a mod 1000)*10; a : = a div 1000 + b; выведите значения а и b через пробел.\ 4) определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =0; k: =0; while s < 100 do begin s: =s+k; k: =k+4; end; write(k); end.

6. цикл for выполнится 10 раз (значение n от 4 до 13), и каждый повтор к s будет прибавляться 15. то есть после выполнения s=150 5. a : = 2468; b : = (a mod 1000)*10  a mod 1000 - остаток от деления 2468 на 1000, то есть 468. b = 468*10 = 4680 a : = a div 1000 + b; a div 1000 - деление 2468 на 1000 с остатком, то есть 2 a = 2 + b = 4680 + 2 = 4682 ответ: 4682 4680 4. цикл while выполняется, пока s < 100, и каждый повтор цикла s увеличивается на k, при этом k каждый повтор цикла увеличивается на 4. то есть  1 повтор цикла: s = 0, k = 4 2 повтор цикла: s = 4, k = 8 3 повтор цикла: s = 12, k = 12 4  повтор цикла: s = 24, k = 16 5  повтор цикла: s = 30, k = 20 6  повтор цикла: s = 50, k = 24 7  повтор цикла: s = 74, k = 28 8  повтор цикла: s = 102, k = 32, условие перестало выполняться, цикл завершился. k = 32

X= 13y = 7t = y = 7y = x mod y =13 mod 7 = 6x = t = 7  y = (y div t )*x = (6 div 7)*7 = 0*7 = 0ответ: x=7; y=0