Question

знатоки информатики....помогите..1 и 2 задание в столбиках.....ничего не получается....

Answer 1

Ответ:

k= 11

k= - 9

Объяснение:

var

 k, i :integer;

 part : double;

begin

 k := 1;

 for i := 1 to 5 do begin

   k := k+2;

   writeln('i=',i,'  k=', k);

 end;

writeln('--------------------');

 k := 1;

 for i:= 5 downto 1  do begin

  k := k-2;

   writeln('i=', i,'  k=',k);

 end;

end.