LOOKUP(C2,H$2:H$6,I$2:I$6)
Во!
uses graphABC;
var x,y,z,n:integer;
Begin
randomize;
n:=random(1000)+1;
y:=random(n)+123;
x:=random(y)+n;
z:=x+23;
SetWindowSize(n,z);
setbrushcolor (clRed);
Ellipse(z,y,n,x);
floodfill (z,n, clgreen);
line(z,x,z,n);
line(n,y,n,z);
line(x,x,z,n);
end.
var
e0, s: real;
k: integer;
a: array [0..10000] of real;
begin
readln(e0);
k := 0;
a[0] := 1;
repeat
a[k + 1] := power(((k + 2) / ((k + 1) * k)), k);
s := a[k] + a[k + 1];
inc(k);
until (a[k] <= e0);
writeln(s:0:3);
end.
Не написано "?" может быть пробелом , я подумал нет , поэтому
masai.db2 - 1 или 2
curasao.dat - 2
mcscan.db2 - 1,2,4,5
acsacal.db - 4
osoka.dbr - 1, 2,3