Question

Определите значение X После выполнения следующего фрагмента программы
x:=1;
for I:=2 to 5 do begin x:=x+1*I;
x:=x+1;
end;​

Answer 1

Ответ:

19

Объяснение:

Pascal

var

 i, x : integer;

begin

 x:=1;

 for I:=2 to 5 do begin  

   x:=x+1*I;

   x:=x+1;

 end;

 writeln(x);

end.