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. нужно составить уравнение/не

Question

4 года назад

6

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. нужно составить уравнение/не

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.

нужно составить уравнение/неравенство для решения для лучшего понимая как можно подробнее

Знания

Информатика

1 ответ:

K a t r i n [33] · Answer 1 · 2020-12-08T20:45:54+03:00

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

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

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

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

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

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

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

щас распишу

s=1+2*0 (s=1)
k=0+4 (k=4)
s=1+2*4 (s=9)
k=4+4 (k=8)
s=9+2*8 (s=25)
k=8+4 (k=12)
s=25+2*12 (s=49)
k=12+4 (k=16)

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

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

49+16=65