Var d,n,i: integer; Begin n := 4; d:=n*2 For i := 1 to 3 do d := d + 2*i; Writeln(d); End.

Question

Var d,n,i: integer;

Begin

n := 4;

d:=n*2

For i := 1 to 3 do

d := d + 2*i;

Writeln(d);

End.

Comments

И что нужно сделать?

---

Вывести d

Answer 1

N = 4
d = n*2 = 4*2 = 8
i = 1; d = d+2*i = 8+2*1 = 10
i = 2; d = d+2*i = 10+2*2 = 14
i = 3; d = d+2*i = 14+2*3 = 20
Ответ: 20

Comments

Лучший <3