Var k, s: integer;begin s:=1; k:=0; while k < 13 do begin s:=s+2*k; k:=k+4; end;...

Question

Var k, s: integer;begin s:=1; k:=0; while k < 13 do begin s:=s+2*k; k:=k+4; end; write(s+k);end. нужно составить уравнение/неравенство для решения для лучшего понимая как можно подробнее

Answer 1

так, ну смотри.

у тебя изначально даны две переменные

s, которое равно 1

k, которое равно 0

программа заходит в цикл, в котором пока k будет меньше 13

будут выполняться данные вычисления

получается, что каждый раз, числу s и k будут присваиваться новые значения

щас распишу

1. s=1+2*0 (s=1)
2. k=0+4 (k=4)
3. s=1+2*4 (s=9)
4. k=4+4 (k=8)
5. s=9+2*8 (s=25)
6. k=8+4 (k=12)
7. s=25+2*12 (s=49)
8. k=12+4 (k=16)

цикл прервался! т.к. 16 меньше 13

теперь мы выводим сумму s и k

49+16=65