Это паскаль тут дается функция 5*e^(-x^2/2) uses crt; var a=-5, b=5, h=0.5: real; x, y: real; function f (x: real): real; begin f(x): = 5*e^(-x^2/2) end; begin clrscr writeln('*y=5*e^(-x^2/2)*'); repeat write('-5='); readln(a); write('5='); readln(b); write('0.5='); until(a

Если что, проверялось только  в pascal abc. uses crt; var x,a,b,h: real; begin writeln('input a,b,h: '); read(a,b,h); writeln('x','   ','f(x)'); x: =a; while x< =b do begin writeln(x,'   ',(5*power(*-x)/2)): 0: 2); x: =x+h; end; end.

1)uses crt; const n=5; m=5; var a: array[1..n,1..m] of integer; pr,i,j: integer; begin for i: =1 to n do begin for j: =1 to m do read(a[i,j]); end; writeln; pr: =1; for i: =1 to n do for j: =2 to 2 do if (a[i,j]< 0) and (a[i,j] mod 2=0) then pr: =pr*a[i,j]; writeln(pr); end. 2)uses crt; const n=5; m=5; var b: array[1..n] of integer; a: array[1..n,1..m] of integer; min,i,j,r: integer; begin for i: =1 to n do begin for j: =1 to m do read(a[i,j]); end; writeln; min: =1000; r: =1; repeat for i: =r to r do for j: =1 to m do if a[i,j]< min then begin min: =a[i,j]; b[r]: =a[i,j] end; min: =1000; inc(r); until r> n; for i: =1 to n do write(b[i],' '); end.

251971414700 бактерий 1 минута - 4 бактерии 2 минута - 60 бактерий 3 минута - 236 бактерий 4 минута - 940 бактерий 5 минута - 3756 бактерий 6 минута - 15020 бактерий 7 минута - 60076 бактерий 8 минута - 240300 бактерий 9 минута - 941196 бактерий 10 минута - 3844780 бактерий 11 минута - 15379116 бактерий 12 минута - 61516460 бактерий 13 минута - 246065836 бактерий 14 минута - 984263340 бактерий 15 минута - 3937053356 бактерий 16 минута - 15748213420 бактерий 17 минута - 62992853676 бактерий 18 минута - 251971414700  бактерий