.


fordowntodo - 5


:

p := j; m := 0;

for i := 1 to n do

begin

m := m + p; p := p + 2

end;

! p, repeat, ( ), , m - .

4. , , . 1 n, . j, 2, j 2. :

j := j - 2;

for i := 1 to n do

begin

write(j, ' ');

j := j + 2

end

 

 

Program Problem4;

uses WinCrt;

var

n, i, k, j, m, s, p : longint;

begin

write(' - '); readln(n);

write(' - '); readln(k);

s := 1; j := 1;

for i := 1 to k do s := s*n;

repeat

p := j; m := 0;

for i := 1 to n do

begin

m := m + p;

p := p + 2

end;

j := j + 2

until m=s;

write(' ', n);

writeln(' ', k, ' . . ', s);

writeln(' ');

j := j - 2;

for i:=1 to n do

begin

write(j, ' ');

j := j + 2

end

end.

, 25 .

3

1. .

2. , , ) ; ) (, , . .)?