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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.