Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =0; k: =0; while k < 30 do begin k: =k+3; s: =s+k; end; write(s); end.

Можно использовать формулу нахождения суммы арифметической прогрессии ((2a₁+d(n-1))/2)·n. a1 = 3; d = 3(шаг увеличения числа k); n = 10(кол-во повторений  цикла --> 30/3=10) --> ((2*3+3*9)/2)*10=165. Это и есть ответ