Var d, n, i: integer;

Begin

n : = 4;

d:=n2

For i : = 1 to 3 do

d : = d + 2i;

Writeln (d) ;

End.

Question

Бронислава

18 ноября, 08:04

+1

Ответы (1)

Знаете ответ на вопрос?

Веля · 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

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