2. найти произведение p=(x+ 1/5)(x+ 4/9) … (n выполнить ручную трассировку при х=1, n=3

program pr1;

var x, i,n: integer; p,a,b: real;

begin

p: =1;

a: =0.2;

b: =11/40;

writeln ('введите x');

writeln ('введите n');

read (x);

read (n);

for i: =1 to n do begin

p: =p*(x+(a+b));

a: = a+b;

end;

write ('p=',p);

end.

язык программирования: паскальvara, b, c, min : integer; beginreadln (a); readln (b);   readln (c);   min : = a; if b < min thenmin : = b; if c < min thenmin : = c; writeln (min); end.

а)400*2,5=1000кб

б)64: 2,5=25,6=25(страниц)

в)нужен диск cd-r ,cd-rw