Визначте значення змінної «a»після виконання фрагмента програми очень нужно
Ш

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.

var

x: real;

begin

readln(x);

writeln(round(x));

end.

егора-зеленая на 16гб

василий-желтую на 8гб

пети-краснаяна 4гб

var x,n: integer;

begin

  read(x,n);

  x: =x*n;

  writeln(x);

end.

трасирвка кажется f7