Срочно, помогите!!Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты...

Question

Срочно, помогите!!Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­ще­го фраг­мен­та про­грам­мы:

var k, s: integer;
begin
k:=0;
s:=6;
while k < 605 do begin
s:=s+30;
k:=k+3;
end;
write(s+k);
end.

Answer 1

605/6 получается 201 с остатком, умножаем 201 на 3, получаем 603, получается что цикл выполнится 202 раза, умножаем 202 на 30, а затем на 3 и складываем 202*30+202*3 получаем 6672