3. что будет напечатано в результате работы следующей программы, составленной на языке visual basic? ints = -1 : intp = 1 : inti = -3 do while inti < 0 intp = intp * inti ints = ints + intp inti = inti + 2 loop ints = ints + intp label1.caption =str(ints) a) -7 b) 2 c) 0 d) -1

Ответ. 3  только я не вижу такого варианта ответа=)

const k=10;

var a: array[1..k] of integer;

n,m,i: integer;

begin

// 1

write('n, m: ');

readln(n,m);

for i: =1 to k do

begin

a[i]: =random(m-n+1)+n;

write(a[i],' ');

end;

writeln;

// 2

for i: =1 to k do

begin

a[i]: =2*i+1;

write(a[i],' ');

end;

writeln;

// 3

a[1]: =1; a[2]: =1;

write(a[1],' ',a[2],' ');

for i: =3 to k do

begin

a[i]: =a[i-2]+a[i-1];

write(a[i],' ');

end;

writeln;

end.

пример:

n, m: 5 15

5 6 11 8 6 14 8 7 9 10  

3 5 7 9 11 13 15 17 19 21  

1 1 2 3 5 8 13 21 34 55

вот тебе в паскале

program ryad_chisel;

var n, t: integer;

begin

read(n);

t: =(n*(n+1))div 2;

if t mod 2 =1 then writeln('impossible')

else begin

      if n mod 2 =0 then begin

                        t: =n div 4;

                        repeat

                        write('+');

                        t: =t-1;

                        until t=0;

                        t: =n div 2;

                        repeat

                        write('-');

                        t: =t-1;

                        until t=0;

                        t: =n div 4;

                        repeat

                        write('+');

                        t: =t-1;

                        until t=0;

                        end

      else begin

          t: =((n+1) div 4)-1;

          repeat

          write('+');

          t: =t-1;

          until t=0;

          t: =((n-1) div 2)+1;

          repeat

          write('-');

          t: =t-1;

          until t=0;

          t: =(n+1) div 4;

          repeat

          write('+');

          t: =t-1;

          until t=0;

          end

      end    

end.