Question

Информатика 9 класс .Помогите пожалуйста . Только решение надо так показать как это будет делаться в программе Паскаль (полностью решение,вместе с концовкой) Задание во вложениях. Может кто сделает в паскале и даст ответ.

Answer 1

var k, s: integer;

begin

s := 1;

k := 0;

while k < 13 do begin

s := s + 2 * k;

k := k + 4;

{ 1 шаг(k=0) : s=s+2*k=1+2*0=1; k=k+4=0+4=4;

2 шаг(k=4): s=s+2*k=1+2*4=9; k=k+4=4+4=8;

3 шаг(k=8): s=s+2*k=9+2*8=25; k=k+4=8+4=12;

4 шаг(k=12): s=25+2*12=49; k=k+4=12+4=16;

На 5 шаге(k=16) цикл завершается, т.к. неравенство 16<13 неверно }

end;

write (s + k); // write (49+16) —> 65

end.