Question

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

Answer 1

В результате работы данного фрагмента программы, будет выведено:___165___

Answer 2

Цикл while вы­пол­ня­ет­ся до тех пор, пока ис­тин­но усло­вие s < 80, т. е. пе­ре­мен­ная k опре­де­ля­ет, сколь­ко раз вы­пол­нит­ся цикл.   Ак­ку­рат­но вы­пи­шем все s и k:   s 0 0 8 24 48 80 k 0 4 8 12 16 20   (Пом­ни­те, что усло­вие s < 80 про­ве­ря­ет­ся толь­ко после k:=k+4, по­это­му дей­ствие s:=s+2*k по­след­ний раз вы­пол­нит­ся для k=16)   Сле­до­ва­тель­но ответ 80.