Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­ще­го фраг­мен­та про­грам­мы:var k, s: integer;begins:=0;k:=0;while k < 30 do begink:=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. Это и есть